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E Almacenamiento 
2 interno. 
Registros 

y ficheros 


ENIENDO en cuenta 
que la misión más im- 
portante de un orde- 
nador es el tratamien- 
to mecanizado de la 
información y que los 
computadores no tra- 
bajan sólo con datos 
individuales, sino con conjuntos de datos 
lógicamente relacionados, es necesario 
que dichos conjuntos de datos posean 
cierta estructura lógica y que se almace- 
nen de acuerdo a otra estructura, la es- 
tructura física. 

La organización de la información en el 
momento de su almacenamiento no sólo 
facilita la tarea del programador, sino 
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para la organización lógica de la infor- 
mación son: el fichero y el registro. 


0 Registros y ficheros 


Aquellos conjuntos a los que nos refe- 
ríamos anteriormente es lo que se consi- 
dera como fichero. Quizá el concepto de 
fichero provenga de los que se emplean 
en cualquier oficina para almacenar la 
información referente a todos los clien- 
tes. 

Llamamos registro a un conjunto de in- 
formaciones referentes a un mismo tema 
y que, por tanto, constituyen una unidad 
de procesamiento. Dentro de cada regis- 
tro se puede hacer una división en unida- 
des de tratamiento como entidad propia 
dentro del registro. A estas unidades se 
las denomina campos. 

Para identificar cada registro, existe en 
él un campo llamado clave del registro, 
que sirve de indicativo para distinguirlo 


que también aumenta la eficiencia en la 
gestión por parte del ordenador. 
Los principales conceptos necesarios 


] Jerarquía de almacenamiento interno de los datos. 


de cualquier otro dentro del mismo fiche- 
ro 


En cuanto a los ficheros, se distinguen 


entre sí por su nombre físico, aunque po- 
drán tener asignados también un nombre 
lógico por el que serán accedidos des- 
de cualquier programa. 

Los ficheros pueden ser multivolumen 
cuando necesitan más de un soporte de 
información para su almacenamiento o, 
en caso contrario, los soportes se llaman 
multifichero cuando disponen de sufi- 
ciente espacio para almacenar más de 
un fichero. 

Refiriéndonos a registros, podemos dis- 
tinguir los llamados registros lógicos de 
los registros físicos. Los primeros suelen 
conocerse simplemente como registros, 
y son conjuntos coherentes de informa- 
ciones agrupadas (el conjunto de infor- 
maciones de un cliente, de un artículo, 
etcétera), es decir, tienen por objeto 
agrupar un conjunto de campos que ha- 
cen referencia a un mismo concepto. En 
cambio, un registro físico es la unidad de 
información que un soporte lee o graba 
de una sola vez, y será un bloque de cin- 
ta, un sector de disco, etc. Un registro fí- 
sico es una agrupación de registros lógi- 
cos, de esta forma se consigue disminuir 
el número de operaciones de entra- 
da/salida, ya que en cada una de ellas 
se leerán o escribirán todos los registros 
lógicos contenidos en el mismo bloque 


Registros de 200 bytes 
Bloque de 1.024 bytes 


.———4 
e 
1.024 VARIOS REGISTROS /BLOQUE 


Registro de 1.000 bytes 
Bloques de 1.024 bytes 


4.000 


1.024 


Registro de 2.000 bytes 
Bloque de 1.024 bytes 


4.024 


2.000 


Normalmente los lenguajes de progra- 
mación de alto nivel poseen instruccio- 


(es muy frecuente llamar bloque al regis- 
tro físico). 

nes de lectura y grabación de registros, 
encargándose el computador de que el 
programa objeto genere las necesarias 
lecturas o grabaciones de bloques, libe- 
rando al programador de tener en cuen- 
ta la diferencia entre registro y bloque en 
cada dispositivo. 


. Formatos de registros 
y campos 


No es necesario que todos los registros 
de un mismo fichero posean el mismo for- 
mato; existen cinco formas básicas de or- 
ganizar los registros de un fichero. 


| RECFM | AREA DE DATOS OTROS PARAMETRO 
EN MOS 
REG-2] |REG-M LRECL 
BLOQUE BLKSIZE=M. LRECL 
LONG. DEL " BLKSIZE=TAMAÑO 
MAX. +4 
E BLKSIZE Y LRECL 
BLKSIZE=4+M. LRECL 
LRECL=4+max. tamaño 
registro lógico 


BLKSIZE=MAX. LONG 
DE UN BLOQUE 


A 2 . . . e 
lA ' Parámetros necesarios para definir el área 
¡ de datos en un registro. 


Como hemos dicho anteriormente, 
dentro de un mismo registro estarán con- 
tenidas ciertas informaciones, cada una 
de las cuales será un campo del registro. 
Cada uno estos campos puede estar di- 
vidido a su vez en otros subcampos o gru- 
pos de datos relativos a un concepto; 
por ejemplo, si tenemos un registro de un 
libro: título, autor y referencia serían cam- 
pos del registro, mientras que la referen- 
cia podría contener dos subcampos: 
área a la que pertenece y localización 
dentro del área. 


[A Estructura del registro LIBRO. 


Los campos contenidos en un registro 
pueden ser de longitud variable o fija, 
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análogamente a los registros de un fiche- 
ro. La gestión de los tamaños, tanto de 
los registros como de los campos, es res- 
ponsabilidad del programa de usuario. 
Realmente es más fácil trabajar con fi- 
cheros cuyos registros sean todos de la 
misma longitud y que a su vez contengan 
campos del mismo tamaño. Al diseñar un 
registro se pueden plantear problemas 
para definir su longitud por varias causas: 


— Campos de longitud variable: se 
puede tomar la máxima longitud posible 
como tamaño del campo, en cuyo caso 
se desaprovecha mucho espacio. En el 
caso de informaciones que lo permitan 
se pueden buscar abreviaturas y tomar 
un tamaño menor al máximo posible. 

— Campos con un número variable de 
subcampos: como el caso anterior, si se 
tomase el mayor se desaprovecharía mu- 
cho espacio. 

— Campos no existentes en todos los 
registros: en el caso en que sólo un nú- 
mero pequeño de registros tuviesen -es- 
tos campos «extras», se desaprovecharía 
igualmente el soporte. 

Cuando se utilizan registros de longitud 
variable, el manejo se hace muyy difícil en 
programación, a no ser que el sistema 
operativo o el lenguaje de programa- 
ción conozcan su longitud previamente. 
Existen diversos métodos para que el pro- 
grama, al leer un registro sepa cuál es su 
longitud. 

— Colocar delante de cada campo su 
longitud. 

— Utilización de símbolos especiales 
de fin de campo y fin de registro. 

— Incluir un campo en la primera po- 
sición que indique la configuración y/o 
tamaño del registro. 


Campo de longitud tija 


A 
¡ REFE- 
)_|rmuLo | 25 ¡autor Jaño]t00 ¡ne PRECIO] $ 
E rr dd 
longitud del próximo campo 
Fin de registro 


¿] + [rruojavtor| - encia] + |eercto| + | 
A. 


Fin de campo 


1 


Tipo de registro 


¡1 Tipos de ficheros 


Las principales características de un fi- 
chero y por las cuales se podría hacer 
una clasificación son las siguientes: 


1. Tamaño 
Calculado en base al tamaño de sus 
registros y campos. 


2. Volatilidad 


Es decir, el tiempo que la información 
va a permanecer sin modificarse en el fi- 
chero. 


3. Actividad 


La frecuencia con que el fichero es re- 
ferenciado indica la actividad que tiene. 
Así se pueden distinguir: 


A. Ficheros permanentes 

Son ficheros que no desaparecen por 
muchos accesos que se hagan a ellos. 
Pueden ser tratados y consultados cual- 
quier número de veces. 

Pueden ser: 

— Constantes 

Su información no se altera nunca o 
casi nunca por la naturaleza de los datos 
que contienen. Por ejemplo, un fichero 
que contenga la tabla de cosenos (inva- 
riable), o un fichero que contenga los li- 
bros que contiene una biblioteca (poco 
variable). 

— De situación 

También llamado FICHERO MAESTRO. 
Contienen en cada momento la informa- 
ción actualizada. Cualquier variación es 
registrada en ellos con la máxima urgen- 
cia. 

— Históricos 

Contienen información acerca de si- 
tuaciones ya pasadas. Suelen utilizarse 
para establecer estadísticas. 


B. Ficheros de movimiento 

También se conocen como ficheros de 
transacciones y contienen los datos ne- 
cesarios para actualizar o consultar un fi- 
chero permanente. 


C. De maniobra 

O ficheros de trabajo, son los que el or- 
denador crea con los resultados interme- 
dios de un proceso, para reutilizarlo in- 
mediatamente por el mismo proceso. 


4. Según su utilidad 
— Archivos de entrada. Son aquellos 


TAMAÑO 

VOLATILIDAD — (com ANENTES 

ACTIVIDAD 

TRABAJO CONSTANTES 

PERMANENTES DE SITUACION 

FUNCION DE MOVIMIENTO | HISTORICOS 
DE MANIOBRA 

e DE ENTRADA 

IDAD DE SALIDA 


DE ENTRADA /SALIDA 


a A | Cuadro clasificación de los ficheros. 


ARCHIVO HISTORICO 


ARCHIVO SALIDA 


que se utilizan para introducir en la me- 
moria del ordenador la información que 
contienen. También se denominan archi- 
vos de origen. 


— Archivos de salida. Se utilizan para 
almacenar la información extraída de la 
memoria interna del ordenador; también 
se llaman ficheros de destino. 


— Archivos de entrada/salida. Se em- 
plean tanto como ficheros de origen 
como en funciones de destino de la infor- 
mación procesada por el ordenador. 


ARCHIVO MOVIMIENTO 


FICHERO MAESTRO 


OMO ya tratamos en 
el apartado anterior, 
el Z-80 puede realizar 
operaciones aritméti- 
cas con palabras de 
16 bits de una forma 
simultánea. Esto su- 
pone un rango numé- 
rico de 0-65535 (2'* que puede ser sufi- 
ciente en muchos casos. De todas for- 
mas, la precisión así obtenida es defi- 


Grupo aritmético de 16 bits 


ADD HL,ss HL+-HL+ss 


ADC HL ,ss HL+-HL +ss+ CY 


SBC HL,ss HL+-HL-ss-CY 


ADD 1X.pp IX-IX+pp 


IY —1Y +rr 


ss*—ss+1 
IX-IX+1 


IY—IY+1 


ss*—ss—1 
IX-IX-1 


Y =IY=1] 


NoTas: ss es cualquiera de los pares de registros BC, DE, HL, SP 
ppes cualquiera de los pares de registros BC, DE, IX, SP 
rr es cualquiera de los pares de registros BC, DE, IY, SP 


Expliquemos brevemente cada una de 
ellas: 

— La instrucción ADD HL,ss realiza la 
suma del contenido de los registros HL 
(16 bits), con los dos registros que indi- 
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SPECTRUM, AMSTRAD, MSX 
OPERACIONES CON 16 BITS 


ciente en operaciones con coma flotan- 
te, por lo que será necesario la realiza- 
ción de operaciones con un ancho de 
palabra mayor (a veces llamado manti- 
sa). Esto tendrá que hacerse con varias 
instrucciones utilizando el bit de carry 
(CY) o acarreo, para guardar lo que «lle- 
vamos» de la operación anterior. En la ta- 
bla adjunta podemos ver las operacio- 
nes disponibles de 16 bits. 


101 ED 
010 


101 ED 


101 011 2B 
111 101 FD 
101 011 2B 


can ss, el resultado queda almacenado 
en los registros HL, afectando a los bits 
correspondientes del registro de flags, 
dependiendo del resultado. 

— La instrucción ADC HL,ss realiza la 


misma operación que la anterior, pero 
suma además el contenido del flag de 
acarreo (CY = 0, 1) al bit menos significa- 
tivo del registro L. 

— La instrucción SBC HL,ss resta al con- 
tenido de HL el del registro indicado en 
ss y luego resta el contenido del bit de 
acarreo. 

— Las instrucciones ADD IX,pp y ADD 
IY,rr suman a los registros IX e Y, los regis- 
tros indicados por pp y rr, quedando los 
resultados en los registros IX e IlY respecti- 
vamente. 

— Las instrucciones INC HH suman 1 al 
registro de 16 bits indicado por hh, sien- 
do éste cualquiera de esta longitud de 
los disponibles en el Z-80. 

— Las instrucciones DEC hh realizan la 
operación contraria. Restan 1 a cual- 
quier registro de 16 bits. 


Como puede verse en la tabla, las ope- 
raciones con 16 bits son sólo posibles 
con registros, no con posiciones de me- 
moria (direccionamiento inmediato, indi- 
recto, etc.). 


E 


Este tipo de instrucciones realizan una 
operación de gran utilidad, ya que no 
debemos olvidar que la multiplicación 
en binario equivale a desplazamientos y 
rotaciones reiteradas (multiplicar por 2 es 
lo mismo que desplazar un bit.) 

En la tabla que sigue puede verse que 
el Z-80 permite casi todas las combina- 
ciones en este tipo de instrucciones. 


Operaciones de rotación 
y desplazamiento 


Grupo de rotación y desplazamiento 


Código 
mnemotécnico Operación simbólica 


RRA 


RLC r 


RLC (HL) 


LTD 
(HL), (IX +d),(1Y +d) 


RLC (1X+d) 


RLC (1Y +d) 


Ma VE rey ¡22 
RL m 
m=r,(HL),(1X +d),(1Y +d) 


m=r,(HL),(1X + d),(1Y +d) 
m=r,(HL),(1X+d),(1Y +d) 


[CY)=—7-0]-0 
m=r,(HL),(1X +d),(IY +d) 


m=r,(HL),(1X +d),(1Y +d) 


0-[120)—[CY] 
mer, (HL), (IX +d),(1Y +d) 


eS N.*” de N.” de 
P/IVNC e por 210 Hex ciclos M | estados T | Comentarios 


re. X0X e 0 12]j|00 000 111 07 
00 010 111 17 
00 001 111 OF 
00 011 111 1F 


11 001 011 CB 


.. 


.. 


Rotación circular a 
la izquierda del 
acumulador 


Rotación a la iz- 
quierda del 
acumulador 
Rotación circular a 
la derecha del 


cha del 
acumulador 
Rotación circular a 
la izquierda del r<- 


r 


11 001 011 CB r Reg. 
00 [000] 110 000 B 
11 011 101 DD 001 C 
11 001 011 CB 010 D 
¿=> 011 E 
110 100 H 
11 111 101 FD 101 L 
11 001 011 CB 111 A 


de ¡ Todas con el mis- 
| mo formato y es- 
tados que las 

1 RLC; el código se 
forma como en las 
RLC, pero reem- 
plazando el (000: 
de RLC por el 
propio código de 


| 
acumulador 
Rotación a la dere- 
la operación. 


101 101 ED 
101 111 6F 


fras BCD, a la de- 
recha y a izquier- 
da, entre la mitad 
baja del acumula- 
dor y la posición 
(HL); no afectan a 
la mitad alta del 
acumulador. 


| 
Rotación de las ci- 


101 101 ED 
100 111 67 
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Expliquemos brevemente cada una de 
las instrucciones.: 

— RLCA rota a la izquierda cíclicamen- 
te los bits del acumulador A. Indepen- 
dientemente de esta rotación cíclica (en 
la que no toma parte el bit de acarreo), 
el bit de acarreo toma el valor que tenía 
el bit 7 (más significativo) del acumula- 
dor, antes de ejecutarse la instrucción. 

— RLA rota cíiclicamente el acumula- 
dor a la izquierda, con el bit de acarreo. 

— RRCA y RRA realizan las mismas ope- 
raciones que las instrucciones RLCA y 
RLA, respectivamente, pero la rotación 
es a la derecha. 

— Como puede verse en la tabla, la 
instrucción RLC puede realizarse sobre 
cualquier registro de 8 bits (no sólo sobre 
A=RLCA, RLCB, etc.). Además, puede uti- 
lizarse el direccionamiento con el vector 
contenido en HL (RCL, (HL)), o también 
realizar un direccionamiento indirecto 
preindexado con IX o IY. (RLC (IX+d) o 
RLC (IY+d), como, por ejemplo, RLC 
(IX+$300F), en este caso se rotaría hacia 
la izquierda el contenido de la posición 
de memoria cuya dirección se encuen- 
tra en las posiciones IX+$300F y 
IX+5300F+1. 

— Como puede verse en la tabla, la 
rotación de la izquierda permite también 
todas las posibilidades anteriores: RLm, 
donde m es un registro de 8 bits, (HL), 
(IX+0) y (IY+d). 

— RRCmM O RRm realizan las mismas 
operaciones que RLCm y RLm, pero la ro- 
tación es a la derecha. 

Todas las instrucciones anteriores se re- 
ferían a rotaciones cíclicas, es decir, los 
bits se desbordan por un lado y se inyec- 
tan por el opuesto. 

— Las operaciones SLAm y SRLm des- 
plazan a la izquierda y derecha, respec- 
tivamente, los bits de m. (Los bits que 
desbordan van al bit de acarreo y el bit 


que falta se pone a cero.) m puede ser 
cualquier posibilidad de registro o direc- 
cionamiento de los explicados anterior- 
mente. 

— ka instrucción SRAm funciona de 
una forma similar a SRLm, pero el bit 7, 
que falta por ser un desplazamiento a la 
derecha, no se pone a cero, sino que 
toma el mismo valor que tenía antes del 
desplazamiento, por lo que los bits 7 y 6 
tomarán el mismo valor. 

— La función RLD está indicada para la 
operación con números en BCD. En esta 
operación, los n bits menos significativos 
del byte cuya dirección se encuentra en 
HL (primer dígito BC de (HL)) son traslada- 
dos a la segunda posición de este mismo 
byte (bits del 4-7) y el contenido previo 
de estas cuatro posiciones se pasa a los 
n bits menos significativos el acumulador. 
El contenido de este primer dígito BCD 
del acumulador se pasa al primero del 
byte de la posición memoria (HL). 

El segundo número BDC del acumula- 
dor no se ve afectado. 

Ver el esquema adjunto. 


== 18 instrucción RRD realiza la rota- 
ción contraria a la instrucción RLD, como 
se indica en la figura. 


a CM 


O Programa: La 
guarida del 


dragón 


STE programa pode- 
mos englobarlo den- 
tro de la categoría de 
programas conversa- 
cionales. El jugador 
tiene que superar 
una serie de dificulta- 
des para llevar a 
buen término la aventura. 

Una aventura conversacional es aque- 
lla en la que le damos mensajes escritos 
al ordenador y él los entiende y ejecuta. 
Por ejemplo, le podemos decir al orde- 
nador que coja una cosa del suelo, que 
la suelte, que se mueva hacia determina- 
da dirección, que mire a su alrededor. 
Todo esto se lo decimos mediante pala- 
bras en español y de la forma que nos 
plazca. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTIÓN + DE JUEGOS 


Se ha intentado que la forma de intro- 
ducir los comandos sea lo más sencilla y 
rápida posible. Por ello, todas las órde- 
nes que se le den al ordenador han de 
tener la forma VERBO-OBJETO con todas 
las preposiciones que se quieran en me- 
dio. Por ejemplo, el programa nos admi- 
tiía mensajes como: 


COGER EL CRISTAL 

COGER CRISTAL 

COGER UN CRISTAL 

COGER JHJF EL UNO VARIOS ADIOS CRIS- 
TAL 


Como puede apreciarse, lo importante 
es el verbo (que siempre ha de ir en infi- 
nitivo) y el objeto sobre el cual va a re- 
caer la acción. Es imprescindible que la 
primera palabra sea siempre un verbo. 


| Primera pantalla del programa «La gua- 
lA rida del dragón» y la introducción de la 


primera orden «ABRIR BAUL». 


| A | Estás fuera de tu casa, ¿qué vas a hacer? 


2 PROGRAMAS 


El programa, antes de procesar la en- 
trada del usuario, comprueba que el ob- 
jeto al que nos estamos refiriendo en la 
frase se encuentra en la habitación don- 
de nos encontramos. Esto no pasa con 
los verbos IR y DECIR. Con estos verbos la 
acción se procesa directamente. 

Otra particularidad es que el verbo IR 
no admite frases del tipo IR HASTA LA 
CASA. Con este verbo siempre habrá que 
utilizar estructuras como IR CASA. En el 
caso de que la dirección a la que nos 
queremos mover es uno de los cuatro 
puntos cardinales, tendremos que poner 
IR NORTE o IR SUR. En este caso específico 
podemos quitar la frase entera sustituirla 
por la primera letra de la dirección hacia 
la que nos queremos mover. Según esto, 
si queremos ir al Oeste sólo tendremos 
que teclear la letra O. 

Los verbos que puede entender el pro- 
grama son los siguientes: 


— ENCENDER - Una linterna, una ce- 
rilla, la luz... 

— IR 

— ATACAR - A una persona o ani- 
mal. Nunca objetos. 

— MATAR - Igual que atacar. 

— PONER - Ponerse ropa, poner 
alguna cosa en al- 
gún sitio. 

— COGER - Coger objetos inani- 
mados o plantas, 
nunca personas. 

— DEJAR - Soltar algunas de 
nuestras pertenen- 
cias. 

— EXAMINAR — - Mirar algún objeto 
que esté en la habi- 
tación o que noso- 
tros tengamos. 

— ABRIR - Una puerta, un arma- 
rio, una carta... 

— LEER - Un papel, la pared... 


— DECIR - Para hablar con al- 
guien. El mensaje ha 
de ir entre comillas. 

— DAR - Algo a alguien. 


Otras palabras que también podemos 

utilizar son: 

— DESCRIPCION - Para saber dónde es- 
tamos. Para echar 
una mirada a nuestro 
alrededor. 

- Para saber qué obje- 
tos estamos llevando 
con nosotros. 


— INVENTARIO 


A Vas camino de un castillo, quién sabe lo que 
. te espera. 


El argumento del juego no lo decimos 
para que el jugador lo adivine mientras 
juega. Lo que sí podemos decir es que 
éste es uno de los mejores programas 
conversacionales que se han escrito en 
español y que su solución puede ser tra- 
bajo de varias semanas o meses. 


10>G0O SUB 2600:GO SUB 3010 
20 DIM 1(5): REM OBJETOS QUE LLEVA EL JUGADOR 
30 GO SUB 3150 
40 GO SUB 1020 
50 POKE 23658,8 
60 INPUT "Y AHORA QUE ? >"; LINE P$ 


70 IF P$="" THEN GO TO 60 
80 PRINT ">";P$ 

90 LET P$=","+P$+"," 

100 LET FC=1 

110 FOR I=FC+1 TO LEN P$ 
120 IF P$(1)="," 
130 NEXT I 


THEN LET LC=I: GO TO 140 


140 LET F$=P$(FC+1 TO LC-1) 

150 LET ERROR=0 

160 GO SUB 280 

170 IF ERROR THEN GO TO 250 

180 IF MAPA=23 AND E(4,1)<>0 THEN PRINT "Sin el flotador,te hundes en el agua 
del foso.": GO TO 890 

190 IF MAPA=30 THEN PRINT "Aaaarghh!!.Una trampilla se abrea tus pies precipit 
andote por unprecipicio.": GO TO 890 

200 IF MAPA=6 AND E(15,3)=0 THEN LET E(15,3)=1: PRINT "Al Emperador empteza a 
no gus- tarle tu presencia." 

210 IF mapa=8 AND e(15,3)>0 THEN LET e(15,3)=e(15,3)+1: IF e(15,3)=5 THEN PRI 
NT "Los esbirros del Emperador te han capturado. Ahora viviras en la carcel el 
resto de tus dias.": GO TO 890 

220 IF mapa=6 AND e(15,3)<0 THEN LET e(15,3)=e(15,3)-1: PRINT "El castillo se 
derrumba!!!": IF e(15,3)=-4 THEN PRINT "Has quedado sepultado en las ruinas 
del castillo.": GO TO 890 

230 IF e(12,3)=1 THEN PRINT "Felicidades:conseguiste vencer al emperador y de 
volver la vida a la princesa.Mereces casarte con ella.Que seais felices!!!." 
PAUSE O: RUN 

240 IF MAPA=23 THEN: LET E(4,3)=E(4,3)+1: IF E(4,3)=3 THEN PRINT "Los cocodril 
os te estaban espe- rando para devorarte.Lo siento."”: GO TO 890 

250 IF lc=LEN p$ THEN GO TO 60 

260 LET fe=1c 

270 GO TO 110 

280 IF LEN f$=1 THEN LET o$=f$: GO SUB 930: GO TO 720 

290 REM DETECCION DEL VERBO 

300 FOR I=1 TO LEN F$ 

310 IF F$(1)=" " THEN: GO TO 340 

320 NEXT 1 

330 LET V$=f$: GO TO 730 

340 LET V$=F3$( TO I-1) 

350 LET O$=F$(1+1 TO ) 

360 REM TRATAMIENTO VERBO 

370 RESTORE 2420 

380 LET VERBO=0 

390 READ A$ 

400 IF A$="x" THEN GO TO 770 

410 LET VERBO=VERBO+1 

420 IF LEN A$>LEN F$ THEN GO TO 390 

430 IF F$( TO LEN A$)=A$ THEN GO TO 450 

440 GO TO 390 

450 REM TRATAMIENTO OBJETO 

460 IF VERBO=13 THEN GO SUB 2250: RETURN 

470 IF VERBO=3 THEN GO SUB 1210: RETURN 

480 LET OBJETO=0 

490 IF LEN O$=1 THEN GO SUB 930: GO TO 720 

500 RESTORE 2570 

510 READ A$ 

520 IF A$="x" THEN GO TO 770 

530 LET OBJETO=OBJETO+1 

540 IF LEN A$>LEN O$ THEN GO TO 510 d 

550 FOR I=1 TO LEN O$-LEN A$+1 

560 IF O$(1 TO I+LEN A$-1)=A$ THEN GO TO 590 

570 NEXT 1 

580 GO TO 510 

590 REM COMPRUEBA SI EL OBJETO ESTA O NO ESTA 

600 FOR I=1 TO 5 

610 IF I(I)=-OBJETO THEN GO TO 640 

620 NEXT I 

630 IF E(OBJETO, 1)<>MAPA OR E(OBJETO, 2)=0 THEN PRINT "No lo veo por ninguna pa 
rte. ": RETURN 

640 IF VERBO=1 OR VERBO=2 THEN GO SUB 2370 

650 IF VERBO=12 OR VERBO=4 THEN GO SUB 1330 

660 IF VERBO=5 THEN GO SUB 1640 

670 IF VERBO=6 THEN GO SUB 1750 

680 IF VERBO=7 OR VERBO=8 THEN GO SUB 1880 

690 IF VERBO=9 THEN GO SUB 1950 

700 IF VERBO=10 THEN GO SUB 2020 

710 IF VERBO=11 THEN GO SUB 2120 
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R 


RE 


720 RETURN 

730 REM VERBOS SIN OBJETO 

740 IF LEN V$<3 THEN GO TO 770 

750 IF V$( TO 3)="INV" THEN GO SUB 810: RETURN 

760 IF V$( TO 3)="DES" THEN GO SUB 1020: RETURN 

770 REM PALABRA NO RECONOCIDA 

780 PRINT "No entiendo. " 

790 LET ERROR=1 

800 RETURN 

810 REM INVENTARIO 

820 LET t=0: PRINT "Llevas:"; 

830 FOR I=1 TO 5 . 

840 IF I(1) THEN LET T=1: LET OBJETO=I(1): GO SUB 1370: PRINT A$;”,"; 
850 NEXT I 

860 IF NOT T“THEN PRINT "nada "; 

870 PRINT CHR$ 8+"." 

880 RETURN 

890 REM MUERTE DEL PROTAGONISTA 

900 PRINT "Estas muerto, pulsa una tecla para volver a jugar." 

910 PAUSE O 

920 RUN 

930 REM IR EN UNA DIRECCION N,S,E,O 

940 IF O$<>"N" AND O$<>"S" AND O$<>"E" AND O$<>"0" THEN PRINT "Ir donde 7?.": 
ETURN 

950 LET D=0 

960 IF O$(1)="N" THEN LET D=1 

970. IF -O$(1)="S" THEN LET D=3 

980 IF O$(1)="E" THEN LET D=5 

990. IF OS(1I="0" THEN, LET D=7 

1000 IF L$(MAPA,D TO D+1)="00" THEN PRINT "No hay salida en esa direccion. ": 
TURN 

1010 LET mapa=VAL (1$(mapa,d TO d+1)) 

1020 PRINT "=== === === oo o- a 

1030 IF (INT (mapa/5)<4 OR mapa=19) AND (e(2,3)=0 OR E(2,1)<>0) THEN PRINT "Est 
a demasiado oscuro,no veo!!!.,": RETURN 

1040 LET desc=VAL l$(mapa,9 TO ) 

1050 PRINT : PRINT "Estas en ";: RESTORE 3020: FOR I=1 TO DESC: READ A$: NEXT I: 
PRINT A$ 

1060 PRINT " Ves:"; 

1070 LET t=0 

1080 FOR i=-1 TO 20 

1090 IF e(i,2)=1 AND e(i,1)=mapa THEN LET t=1: LET objeto=i: GO SUB 1370: PRINT 
a$;","; 

1100 NEXT i 

1110 IF NOT t THEN PRINT "nada "; 

1120 PRINT CHR$ 8+"." 

1130 IF L$(MAPA, TO 8)="00000000" THEN RETURN 

1140 PRINT " Salidas:"; 

1150 IF VAL l1$(mapa, TO 2) THEN PRINT "Norte,"; 

1160 IF VAL l1$(mapa,3 TO 4) THEN PRINT "“Sur,”"; 

1170 IF VAL 1$(mapa,5 TO 6) THEN PRINT "Este,"; 

1180 IF VAL 1$(mapa,7 TO 8) THEN PRINT "Oeste,"; 

1190 PRINT CHR$ 8+"." 

1200 RETURN 

1210 REM IR 

1220 IF LEN o$<3 THEN PRINT "Por favor, vuelve a escribir eso. ": RETURN 
1230 LET O$=0$( TO 3) 

1240 IF MAPA=28 AND o$="ARB" THEN LET MAPA=29: GO TO 1020 

1250 IF MAPA=25 AND O$="POZ" THEN LET MAPA=19: GO TO 1020 

1260 IF MAPA=6 AND o$="VEN" THEN LET MAPA=23: GO TO 1020 

1270 IF MAPA=19 AND o$="PUE" AND E(9,3)=1 THEN LET MAPA=1: LET e(9,1)=mapa: GO 
TO 1020 

1280 IF MAPA=19 AND o$="CAS" THEN LET MAPA=25: GO TO 1020 

1290 IF MAPA=1 AND o$="PUE" THEN LET MAPA=19: LET e(9,1)=mapa: GO TO 1020 
1300 IF MAPA=26 AND O$="CHO" THEN LET MAPA=27: GO TO 1020 

1310 LET O$=-03$(1) 

1320 GO TO 930 

1330 REM EXAMINAR UN OBJETO 

1340 GO SUB 1370 


1350 "PRINTIES; *. 

1360 RETURN 

1370 REM BUSCA EL NOMBRE DEL OBJETO EN LA TABLA 

1380 RESTORE 1440 

1390 FOR n=1 TO objeto 

1400 READ a$,b$ 

1410 NEXT n 

1420 RETURN 

1430 REM DESCRIPCIONES DE LOS OBJETOS 

1440 DATA "la daga", "Es una espada corta y muy afilada" 

1450 DATA "la linterna”","es una lampara de aceite" 

1460 DATA "el diamante”, "La luz que se refleja en sus facetas le da un brillo ma 
gico" 

1470 DATA "el flotador","Es un flotador de corcho" 

1480 DATA "la llave","Es una llave dorada con aspecto de vieja" 

1490 DATA "el cofre del hechizo", "Este hechizo destruira al Empe- rador,pero sol 
o si lo usas de acuerdo con las instrucciones" 

1500 DATA "el pergamino”, "En el dice: Instrucciones para el manejo del hechizo:ab 
rir la tapa y pronunciar las palabras ORO ORO CHOCOLATE DEL LORO" 

1510 DATA "el oro","Es solo oro” 

1520 DATA "una puerta", "Una puerta de madera de roble, vieja pero solida, y tien 
e una buena cerradura” 

1530 DATA "una ventana", "Esta abierta!!!" 

1540 DATA "el viejo arbol”","En su interior vivio alguien" 

1550 DATA "una estatua", "Es curioso,esa estatua es muy parecida a la princesa 
Aifos,es mas yo diria que es exactamente igual a ella.En una de las cuen-cas de 
sus ojos hay un diamante, la otra esta vacia" 

1560 DATA "el esqueleto", "el esqueleto del emperador” 

1570 DATA "a la vieja Magra”, "Parece muy vieja,debe tener al menos un siglo" 
1580 DATA "al emperador","Sus ojos se fijan en ti y te dice:preparate a morir 
,entrome- tido" 

1590 DATA "el baul”,"Es un viejo baul que has usado en muchos viajes" 

1600 DATA "una cerradura”, "Aunque esta muy oxidada, todavia puede funcionar" 

1610 DATA "un dragon”, "Es uno de los dragones escupe- fuego escapados del Zoo" 
1620 DATA "tu casa","Todo parece como si llevara mu- cho tiempo sin limpiar, suci 
oy abandonado" 

1630 DATA "la calle","Esta desierta" 

1640 REM COGER UN OBJETO 

1650 IF OBJETO>8 THEN PRINT "Es demasiado pesado. ": RETURN 

1660 IF E(OBJETO,1)=0 THEN PRINT "Ya lo: llevas encima. ": RETURN 

1670 FOR i=1 TO 5 

1680 IF i(i)=0 THEN GO TO 1720 


1690 NEXT i 

1700 PRINT "LLevas demasiado. " 

1710 RETURN 

1720 PRINT "De acuerdo,coges ";: GO SUB 1370: PRINT a$;"." 
1730 LET i(i)=objeto: LET E(OBJETO, 1)=0 

1740 RETURN 


1750 REM DEJAR UN OBJETO 

1760 IF MAPA=19 THEN PRINT "No lo puedes dejar en ningun. si-tio,se te caeria al 
fondo del pozo. ": RETURN yb 

1770 IF mapa=23 THEN PRINT "No lo puedes dejar,se hundiria. " 

1780 FOR i=-1 TO 5 

1790 IF i(i)=objeto THEN GO' TO 1830 

1800 NEXT i 

1810 PRINT "No lo llevas encima. * 

1820 RETURN 

1830 LET i(i)=0: LET e(objeto, 1)=mapa 

1840 PRINT "De acuerdo,dejas "; 

1850 GO SUB 1370 

1860 PRINT as; ”.” 

1870 RETURN 

1880 REM MATAR A ALGUIEN 

1890 IF MAPA=6 AND OBJETO=15 THEN PRINT "No recuerdas lo que tenias que hacer 

para matar al Emperador?.": RETURN 

1900 IF mapa=27 THEN PRINT "No seas asesino. ": RETURN 

1910 IF mapa=17 AND objeto=18 AND e(1,1)=0 AND E(18,2)=1 THEN PRINT "Muy bien.M 
atas al dragon con tu daga.El pobre animalito no tienetiempo ni de enterarse y m 

uere con un resoplido que hace tem- blar ls paredes de la caverna.Ensus fauces 
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abiertas aparece un cofre.": LET e(6,2)=1: LET E(18,2)=255: RETURN 
1920 IF mapa=23 THEN PRINT "Es inutil,son mas fuertes que tu.”": RETURN 
1930 IF MAPA=17 AND OBJETO=18 AND E(18,2)=255 THEN PRINT "No puedes matarlo otr 
a vez." : RETURN 
1940 PRINT "No puedes hacer eso. ": RETURN 
1950 REM ENCENDER ALGO 
1960 IF OBJETO<>2 THEN PRINT "Eso no puedo encenderlo. ": RETURN 
1970 IF objeto=2 AND e(2,3)=1 THEN PRINT "Ya esta encendida. ": RETURN 
1980 PRINT "De acuerdo, enciendes "; 
1990 GO SUB 1370: PRINT a$ 
2000 LET e(2,3)=1 
2010 RETURN 
2020 REM ABRIR UN OBJETO . 
2030 IF e(8,2)=0 AND objeto=16 THEN PRINT "Que sorpresa,dentro hay Oro en mone 
das y una linterna. ": LET e(2,2)=1: LET e(8,2)=1: RETURN 
2040 IF OBJETO=9 AND MAPA=19 AND E(9,3)=0 AND E(5,1)=0 THEN PRINT "Abres la pue 
rta del pozo.Al mo- verse sobre sus bisagras oxida- das produce uh ruido siniest 
ro.": LET e(9,3)=1: RETURN 
2050 IF objeto=9 AND mapa=19 OR mapa=1 AND e(9,3)=1 THEN PRINT "Ya esta abierta 
": RETURN 
2060 IF OBJETO<>6 THEN PRINT "No puedes. ": RETURN 
2070 IF mapa<>6 THEN PRINT "Lo abres,pero se vuelve a cerrar": RETURN 
2080 IF e(6,3)=1 THEN PRINT "Ya esta abierto. ": RETURN 


2090 PRINT "El Emperador palidece cuando delcofre empieza a salir humo blan 
eb.” 

2100 LET e(6,3)=1 

2110 RETURN 


2120 REM DAR 

2130 IF MAPA<>27 OR OBJETO<>8 THEN PRINT "No puedes hacer eso. ": RETURN 

2140 IF MAPA=27 AND OBJETO=8 AND E(5,2)=1 THEN PRINT "La vieja te mira a los oj 
os y secalla.": RETURN 

2150 PRINT "La pobre vieja acepta encantada el oro que le ofreces y te dice:" 
2160 PRINT " Hijo mio,hace siglos que estas dormido,desde que el malvado Empe 
rador de las Sombras lanzo sobre el reino la maldicion que durmio a Aifos, la pr 
incesa y" 

2170 PRINT "trajo el hambre y la desolacion al reino.Debes acabar con el conel h 
echizo que se encuentra en la caverna del dragon." . 

2180 PRINT " La vieja Magra deja caer una llave y dice:espero que la sepasusar 


2190 LET e(5,2)=1 

2200 LET E(8,1)=255: LET E(8,2)=255 

2210 FOR 1=1 TO 5 

2220 IF I(I)-=-8 THEN LET I(I)=0 

2230 NEXT I 

2240 RETURN 

2250 REM DECIR ALGO 

2260 IF mapa=27 THEN PRINT "La vieja esta sorda,no te puede oir. ": RETURN 

2270 IF mapa<>6 THEN PRINT "Nadie oye lo que dices. ": RETURN 

2280 IF e(6,3)=0 THEN PRINT "Lo dices,pero no pasa nada. ": RETURN 

2290 IF o$(1)<"A" THEN LET o$=o0$(2 TO ): GO TO 2290 

2300 IF o$(LEN o$)<"A" THEN LET o$=o0$( TO LEN o$-1): GO TO 2300 

2310 IF o$<>"O0RO ORO CHOCOLATE DEL LORO” THEN PRINT "No son las palabras magica 
s correctas.": RETURN ] z a 

2320 IF e(15,3)<0 THEN PRINT "Ya lo has hecho antes. ": RETURN 

2330 PRINT "El Emperador palidece al oir el conjuro.Su cuerpo empieza a des-menu 
zarse hasta quedar reducido a polvo.Entre el polvo aciertas a descubrir un diama 
nte." 

2340 LET e(15,3)=-1 

2350 LET e(3,2)=1 

2360 RETURN 

2370 REM PONER O INSERTAR 

2380 IF OBJETO<>3 OR e(3,2)<>1 OR mapa<>25 THEN PRINT "No puedes. " 

2390 PRINT "Al introducir el diamante en la cuenca del ojo de la estatua se conv 
ierte en la princesa Aifos de carne y hueso. ” 

2400 LET e(12,3)=1 

2410 RETURN 

2420 REM DATA DE VERBOS 

2430 DATA "INSE" 

2440 DATA "PONER" 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA "PUER","VENT","ARB", 


“IR" 
"EXA" 

"COG" 

“DEJ" 
“ATAC", "MAT" 
"ENCE” 

"ABR" 

"DAR" 

"LEER" 
“DECIR” 

"pr 

REM DATA PARA LOS OBJETOS 

"DAG", "LINT", "DIAM", "FLOT","LLAV","COFR", "PERG", "ORO" 

"ESQU","MAGR", "EMPERADOR", "BAU", "CERR"”, "DRAG 


, "CAS", "CALL" 


2590 
. 2600 
2610 
2620 
2630 
2640 
2650 


DATA 


"opa 
REM DATA PARA MAPA 


RESTORE 2670 
DIM 1$(30,10) 


FOR I= 


1 TO 30 


READ L$(1) 


NEXT i 


2660- LET MAPA=25 


2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0007020001" 
"0008030201" 
"0009000201" 
“0010050001” 
"0000000403" 
"0012000002" 


REM SEGUNDA FILA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0113080001" 
"0214000701" 
"0315000001" 
"0400110001" 
"0000001003" 
"0618000004" 


REM TERCERA FILA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0700000001" 
"0800000001" 
"0900160001" 
"0000171501" 
"0000001603" 
"1224000004" 


REM CUARTA FILA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0000000005" 
"0026210006" 
"0000222007" 
"0028232107" 
"0000242213" 
"1830000004" 


REM QUINTA FILA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0000260008" 
"2000272509" 
"0000002610" 
"2200290011" 
"0000002812" 
"2400000004" 
REM DESCRIPCIONES DE LOS LUGARES 


"EST" 


3 


DATA "las cavernas del dragon.Un ligero olor a azufre inunda el ambiente, y 
la humedad cala hasta los huesos” 
3030 DATA "la sala del trono del Emperador.Enormes candelabros y cortinajes flan 
quean el camino alfombrado hasta el trono dorado" 

3040 DATA "la guarida de uno de los tres dragones. Aqui el olor a azufre es basta 
nte acusado" 
3050 DATA "las inmensas dependencias del castillo del Emperador" 

3060 DATA "el pozo.Frente a ti,una puerta vieja y desvenci jada. Esta tan oscuro q 
ue no puedes ver casi ni la cuerda a la que te aferras con todas tus fuerzas" 
3070 DATA "el pantano. Aqui los animales son los reyes;no se asustan ante tu pres 
encia. Mas aun,te miran con curiosidad" 
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3080 DATA "el esrecho camino que conduce al castillo" 
3090 DATA "tu casa.Sobre la cama hay una estatua de piedra caliza y blanca.El po 
zo del agua tiene la tapdera quitada. Todo parece abandonado,como si hubieras est 
ado dormido siglos..... > 

3100 DATA "la calle de lo que deberia haber sido la populosa ciudad donde habita 
bas la noche anterior.En su lugar,un descampado en el que se alza una ridicula 
misera choza” sn a 
3110 DATA "la choza de Magra.Ciertamente no ha sido limpiada desde hace mucho ti 
empo.El polvo del ambiente casi se puede cortar con cuchillo,y el agua que hierv 
e en el debil fuego contribuye a enrarecer el ambiente" 5 

3120 DATA "el bosque. Hacia el este puedes ver un gran arbol hueco por dentro.Par 
a entrar en el,alguien ha abierto una diminuta puerta" 

3130 DATA "el interior del arbol.Dentro del arbol se han acomodado varias coloni 
as de gusanos, pero todavia se pueden distinguir signos de que alguien estuvo aqu 
i hace mucho tiempo” 

3140 DATA "el foso del castillo.El agua negra y sucia desprende un olor fetido,p 


3150 DIM E(20, 3) 

3160 RESTORE 3210 

3170 FOR i=1 TO 20 
3180 READ e(1,1),e(I,2) 
3190 NEXT i 

3200 RETURN 


125,1,19,1,17,3,25,1,26,1 


Para terminar, hay que decir que este 
programa sólo funciona en el SPECTRUM, 
pero las versiones para los demas orde- 
nadores aparecerán más adelante. 


Programa: Mastermind 
de palabras 


El siguiente programa que vamos a ver 
es una modificación del famoso Master- 
mind. En esta versión, en vez de tener que 
adivinar una serie de números, tendre- 
mos que ver si podemos sacar una pala- 
bra que ha pensado el ordenador. Dicha 
palabra será una de las que aparecen 
en el diccionario que el programa lleva 
incluidas. 

Cada vez que nosotros le respondamos 
al ordenador, éste nos dirá cuántas letras 
hemos acertado. Si una letra esta acer- 
tada pero no está colocada en su posi- 
ción, entonces nos la marcará con una o 
mayúscula (O). A esta letra se la denomi- 
na HERIDO. Si la letra no sólo pertenece a 
la palabra que tenemos que adivinar, 


ero no es momento de delicadezas.Unos cocodrilos salen a tu paso." 


3210 DATA 29,1,25,0,6,0,29,1,27,0,17,0,13,1,25,0,19,1,6,1,26,0,25,1,6,0,27,1,6,1 


ESTE ES MI DICCIONARIO DE PALABRAS 


MA 
FA 
ER 
VI 
FI 
TÉ 
FE 
S 


oro 


FULSA UNA TECLA FARA COMENZAR 


Diccionario de palabras que contiene el 
programa. 


sino que además está colocada en la 
misma posición que en la palabra, el or- 
denador nos lo marcará con una x mayús- 
cula (X). A esta letra la llamaremos MUER- 
TO. 

El juego termina cuando hemos acerta- 


do la palabra o cuando hemos agotado Si no acertamos la palabra, el ordena- 
las nueve oportunidades que tenemos dor nos dirá cuál era y nos preguntara si 
para hacerlo. queremos echar otra partida. 


MAS TERM IND 
MUERTOS = HERIDOS= Z 


X X *X YX A, R 
Xx 
o 


MAS TERM IND 
MUERTOS= 6 


os o 
Mr ¿ a , A E 
ENHORAEUENA ,LO CONSEGUISTES '''** 


O XV -.U082>2%)>-3 
YN TZAN-= DDD 
O -O0€DO<AUy 
Nr" uUMmea»osSoS 


R 
R 
u 
E 
u 
Q 
K 
E 


o D 
COME INACION CORRECTA ERA = TARADO 


*HODCO -=. .i 
D 


O omo 
ma 22222 


K 
v 
T 
Q 
mM 
H 
€ 


1 A | Si no acertamos, el ordenador nos dice 
qué palabra era. 


AOS SOS SO SOS SiS OSOS OSOS OSOS” iOOiSdOlO Ojo joJOK 
101 REM A+SSSdSSSlOlSlOlOOlololololajolololololok M A S T E R M I N D AR*RRSSSSSSSSlPlSlSSSSISlPlSOlOJVjVOK 
102 REM ddiaidiSi*iSaia aia iaa ajaja lalalala laa lalala jala lalalala lalSldldldl”l*iSiSiSSSSSE ESSE” ajSlSOjSjSjElSlSlOlSlOlO OK 
103 CLS 
104 DIM A(6) 
105 DIM A$(6) 
106 DIM G(6) 
107 LET B$="MASTERMIND ED. SIGLO CULTURAL” 
108 LET L=LEN(B$) 
109 FOR C=1 TO L 
110 FOR F=(5+L)-5 TO 5+L 
111 LOCATE 10,F 
112 PRINT " ";MID$(B$,L,1) 
113 NEXT F 
114 LET L=L-1 
115 NEXT C 
116 LOCATE 21,12 
117 PRINT "PULSA UNA TECLA" 
118 IF INKEY$="" THEN GOTO 118 
119 CLEAR 
120 GOSUB 308 , 
121 RESTORE 230 
122 CLS 
123 RANDOMIZE TIMER 
124 FOR F=1 TO INT(RND*50)+1 
125 READ P$ 
126 NEXT F 
127 FOR F=1 TO 6 
128 LET G(F)=ASC(MID$(P$,F,1)) 
129 LET A(F)=ASC(MID$(P$,F,1)) 
130 NEXT F 
131 LOCATE 1,15 
132 PRINT "“MASTERMIND" 
133 FOR F=3 TO 20 STEP 2 
134 LOCATE F,15 
135 A A A ze 
136 NEXT F 
137 LOCATE 2,1 
138 PRINT "MUERTOS=" 
139 LOCATE 2,30 
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140 PRINT "HERIDOS=" 

141 LET Y1=20:LET X1=25:LET Y2=20:LET X2=-2 

142 LOCATE 2,9 

143 PRINT HE 

144 LOCATE 2,38 

145 PRINT MU 

146 FOR W=1 TO 9 

147 LOCATE 22,1 

148 — PRINT "PULSA LA SECUENCIA DE LETRAS QUE QUIERAS" . 
149 FOR F=1 TO 6 


150 LET K$=INKEYS$ 

151 IF K$="" THEN GOTO 150 

152 IF ASC(K$)<65 OR ASC(K$)>90 THEN GOTO 150 
153 LOCATE Y1,X1 

154 PRINT K$ 

155 LET X1=X1+3 

156 LET A$S(F)=K3 


157 NEXT F 

158 LOCATE 22,1 

159 PRINT SPACE$(40) 

160 LET X2=-2 

161 FOR F=1 TO 6 

162 IF CHR$(A(F))=A$(F) THEN LET MU=MU+1:LOCATE Y2,X2+(F*3):PRINT "X":LET 
A$S(F)=" ":LET A(F)=0:LOCATE 2,9:PRINT MU 

163 NEXT F 

164 IF MU=6 THEN GOTO 182 

165 FOR F=1 TO 6 


166 LET X2=-2 

167 FOR C=1 TO 6 

168 IF CHR$(A(C))=A$(F) AND F<>C AND A(C)<>0 AND A$(F)<>" ” THEN LET A( 
C)=0:LET A$(F)="":LET HE=HE+1:LOCATE Y2,X2+(Fx*x3):PRINT "O":LOCATE 2,38:PRINT HE 
169 NEXT € 


170 NEXT F 

171 LET Y2=Y2-2 

172 LET Y1=-Y1-2 

173 LET X1=25 

174 FOR F=1 TO 6 

175 LET A(F)=G(F) 

176 NEXT F 

VET LET HE=0 

178 LET MU=0 

179 NEXT W 

180 GOTO 208 

181 REM 

182 REM drRaSSS SIS SSlSSS SIS S ISS SPORE ISSO ISSO SSI” SISS RSS OSITO OK 
183 REM aeRXadaaloNobdookk FINAL DEL JUEGO. ADIVINADAS LAS 6 LETRAS AóSSOOO OSO lolSIOJOIOK 
184 REM sSISlS O SS lSIOIO SS SISSI SEIS SEE lSIOS SEIS SSI” SISSI lOSjSJOJOK 
185 REM 

186 LOCATE Y1,25 

187 LET C=1 

188 FOR F=25 TO 40 STEP 3 

189 LOCATE Y1,F 

190 PRINT CHR$(G(C)) 

191 LET C=C+1 

192 NEXT F 

193 LOCATE 22,1 

194 PRINT SPACE$(40) 

195 LOCATE 22,4 

196 PRINT "ENHORABUENA, LO CONSEGUISTES !!!!!” 

197 FOR F=1 TO 2000 


198 NEXT F 
199 LOCATE 22,1 


200 PRINT SPACE$( 40) ' 
201 LOCATE 22,1 

202 PRINT " ( QUIERES JUGAR OTRA PARTIDA (S/N) ?" 

203 LET K$=INKEYS$ 

204 IF K$-"S" OR K$="s" THEN GOTO 119 

205 IF K$="N" OR K$="n" THEN CLS:PRINT “ADIOS ...":END 

206 GOTO 203 

207 REM 


208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 


253 
254 


255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
202 
273 
274 
275 
276 
7 


REM ASSSSS SS SiS iS SiS” S OOOO OSOS Oi” S OSOS” SOS” iaa ajajja lo lok 
REM SS SlOloOlololololololololoak NO ACERTASTE LAS 6 LETRAS AS9SoSSSSS SISSI SSlEjSjSlOOOOIOIOK 
REM O AMSSSSS SISSI SS SS SOS S SOS SS” SOS OOOO OK 
REM 

LOCATE 22,1 

PRINT SPACE$(40) 

LOCATE 22,6 

PRINT "000H ,NO LO CONSEGUISTE !!!” 

FOR I=1 TO 1000 

NEXT 1 

LOCATE 22,1 

PRINT SPACE$(40) 

LOCATE 22,1 

PRINT "LA COMBINACION CORRECTA ERA = "P$ 

FOR F=1 TO 1000 

NEXT F 

GOTO 199 

REM 

REM AMSSOSSSS SOS OOOOOOOOJOJOK 
REM AddSSSOlOOlololololokak TABLA DE PALABRAS ARSS OSO SISSI lOlS ISS lSOjSjOlSlOlS POSO SO JOJOJOK 
REM O ARMSSSSS SOS iS OSOS SOS SOS OOOO OSOS iS SS SOS SO SOS OSOS” OOO OJO kk 
REM 

DATA "PATOSO" 

DATA "CABEZA" 

DATA "MUERTO" 

DATA "BOCATA" 

DATA "MORERA" 

DATA "POROSO" 

DATA "LIGERO" 

DATA "RAPIDO" 

DATA "CONICO" 

DATA "PLURAL" 

DATA "SOLANA" 

DATA "MARACA" 

DATA "PELOTA" 

DATA "CADENA" 

DATA "CANELA" 

DATA "PAPIRO" 

DATA "ANILLO" 

DATA "PILOSO" 

DATA "MACETA" 

DATA “BATIDO” 

DATA "BIKINI" 

DATA "GUSANO" 

DATA “INOCUO" 


DATA "VISITA" 
DATA “POLACO" 


DATA "LEVITO" 
DATA "TOCADO" 
DATA "PILUCA"” 
DATA "CUATRO" / 
DATA "SUELDO" 
DATA "PASCAL" 
DATA "MANOLO" 
DATA “SALIDA” 
DATA "SOLETE" 
DATA "PAPADA" 
DATA “TEJADO” 
DATA “CAMILA” 
DATA "TERESA" 
DATA "CAMISA" 
DATA "TARADO" 
DATA "“SOBACO” 
DATA “TOMATE” 
DATA "ESTEPA" 
DATA "PEPITO" 
DATA “CAMINO” 
DATA “COMINO” 
DATA "PETALO” 
DATA "STONES" 


n PROGRAMAS 


DATA “MARCHA” 
DATA “CARLOS” 
DATA "PELUSO” 
DATA: ” * 

DATA * = 

REM 


REM SMS SISSI SOS SSI PSSS lll lOjOlOJOJOK: 
REM MS lOlOlSlOlOlSlOlOlololololololoOK. DIBUJO DE VENTANA AdddRSSSSS SS SSSdSlSlalOlolalalojolojok 
REM SOS IO lOIOIOIOIOIOISIOIOIOIOIOISIO SOJSE EEES SSI jE lll 


REM 

LOCATE F1,C1 

PRINT CHR$(201); 

FOR I=C1+1 TO C2-1 
PRINT CHR$(205); 

NEXT 1 

PRINT CHR$(187) 

FOR I=F1+1 TO F2-1 
LOCATE 1,C1 
PRINT CHR$(186) 
LOCATE 1,C2 
PRINT CHR$(186) 

NEXT 1 

LOCATE F2,C1 

PRINT CHR$(200); 

FOR I=C1+1 TO C2-1 
PRINT CHR$(205); 

NEXT 1 

PRINT CHR$(188) 

RETURN 

REM 


REM ASSSSS SS SS SS ES S]SjOS SOS SS SS” R SES] E EOS RSS] lO jOlESlOSIOIOJOK 


REM sSSISIS SS lSSJSlSlSIOIOIOlElololalokKk DIBUJO DEL DICCIONARIO AaaOMS ISSO SEIS JO JOIOIOIOIOJOK 
REM SSA SSJS SISSI SPSS RSS RSS SSI: 


REM 

CLS 

LET F1=2:LET Ci=2 
LET F2=20:LET C2=39 
RESTORE 230 

GOSUB 288 

LOCATE 1,4 


PRINT "ESTE ES MI DICCIONARIO DE PALABRAS" 


FOR F=4 TO 16 

READ Q8,WS$, ES, R$ 

LOCATE F,6 

PRINT Q$;" "WS," ";E$;" "¡R$ 
NEXT F 
LOCATE 21,26 
PRINT “PULSA UNA TECLA PARA COMENZAR” 
IF INKEY$="" THEN GOTO 326 
RETURN 


Este programa ha sido realizado en un 
IBM. Para que funcione en los demás or- 
denadores hay que realizar los siguientes 
cambios: 


COMMODORE: 


103 PRINT CHR$(147) 
111 POKE 214,9:POKE 211,F-1 


116 POKE 214,20:POKE 211,11 

118 GET AS: IF AS="” THEN GOTO 118 
122 PRINT CHR$(147) 

123 LET A=RND(-TI) 

124 FOR F=1 TO INT(RND(1):50)+1 
131 POKE 214,0:POKE 211,14 

134 POKE 214,F-1:POKE 211,14 

137 POKE 214,0: POKE 211,1 


139 POKE 214,1:POKE 211,29 
142 POKE 214,1:POKE 21 
144 POKE 214,1:POKE 21 
147 POKE 214,21:POKE 2 
150 GET K$ 

153 POKE 214,Y1-1:POKE 211,X1-1 

158 POKE 214,21:POKE 211,0 

159 FOR I=1 TO 40:PRINT “ ”;:NEXT | 

162 IF CHR$ (A(F)) = A $ (F) THEN LET 
MU=MU+1:POKÉ  214,Y2-1:POKE 
211,X2-1+(F-3):PRINT “X”:LET AS(F)= “ ":LET 
A(F)=0:POKE 214,1:POKE 211,8:PRINT MU 
168 IF CHRS(A(C))=AS(F) AND F<>C AND 
A(C)<>0 AND AS(F)<>" ” THEN LET 
A(C)=0:LET AS(F)="":LET HE=HE+1:POKE 
214,Y2-1:POKE 211,X2-1+(F-3):PRINT 
“O”:POKE 214,1:POKE 211,27:PRINT HE 

186 POKE 214,Y1-1:POKE 211,24 

189 POKE 214,Y1-1:POKE 211,F-1 

193 POKE 214,21:POKE 211,0 

194 FOR I=1 TO 40:PRINT“”;:NEXT | 

195 POKE 214,21:POKE 211,3 

199 POKE 214,21:POKE 211,0 

200 FOR I=1 TO 40:PRINT “ ”;:NEXT | 

201 POKE 214,21:POKE 211,0 

203 GET K$ 

212 POKE 214,21:POKE 211,0 

213 FOR I=1 TO 40:PRINT “ ”::NEXT | 

214 POKE 214,21:POKE 211,5 

218 POKE 214,21:POKE 211,0 

219 FOR I=1 TO 40:PRINT “ ”;:NEXT | 

220 POKE 214,21:POKE 211,0 

288 POKE 214,F1-1:POKE 211,C1-1 

289 PRINT CHR$(176); 

291 PRINT CHR$(99); 

293 PRINT CHR$(174) 

295 POKE 214,1-1:POKE 211,C1-1 

296 PRINT CHR$(98) 

297 POKE 214,1-1:POKE 211,C2-1 

298 PRINT CHR$(98) 

300 POKE 214,F2-1:POKE 211,C1-1 

301 PRINT CHR$(173); 

303 PRINT CHR$(99); 

305 PRINT CHR$(189) 

312 PRINT CHR$(147) 

317 POKE 214,0:POKE 211,3 

321 POKE 214,F-1:POKE 211,5 

324 POKE 214,20:POKE 211,25 

326 GET AS:IF A$="” THEN GOTO 326 


, 
, 
, 


1 
1 
1,27 
11,0 


AMSTRAD: 


111 LOCATE F,10 

116 LOCATE 12,21 

123 RANDOMIZE TIME 

124 FOR F=1 TO INT(RND(1)'50)+1 
131 LOCATE 15,1 


134 LOCATE 15,F 

137 LOCATE 1,2 

139 LOCATE 30,2 

142 LOCATE 9,2 

144 LOCATE 38,2 

147 LOCATE 1,22 

153 LOCATE X1,Y1 

158 LOCATE 1,22 

162 IF CHRSCA(F))=AS$(F) THEN LET 
MU=MU+1:LOCATE X2+(F-3),Y2:PRINT 
“X'":LET AS(F)=" ”:LET A(F)=0:LOCATE 9,2: 
PRINT MU 

168 IF CHRS (A(C))=AS(F) AND F<C AND 
(C)<>0 AND AS(F)<>" ” THEN LET 
A(C)=0:LET AS(F)="”:LÉT HE=HE+1:LOCAT E 
X2+(F-3), Y2:PRINT “O”:LOCATE 38,2:PRINT 
HE 

186 LOCATE 25,Y1 

189 LOCATE F,Y 1 

193 LOCATE 1,22 

195 LOCATE 4,22 

199 LOCATE 1,22 

201 LOCATE 1,22 

212 LOCATE 1,22 

214 LOCATE 6,22 

218 LOCATE 1,22 

220 LOCATE 1,22 

288 LOCATE C1,F1 

289 PRINT CHR$(150); 

291 PRINT CHR$(154); 

293 PRINT CHR$(156) 

295 LOCATE C1,1 

296 PRINT CHR$(149) 

297 LOCATE C2,! 

298 PRINT CHR$(149) 

300 LOCATE C1,F1 

301 PRINT CHR$(147); 

303 PRINT CHR$(154); 

305 PRINT CHR$(153) 

317 LOCATE 4,1 

321 LOCATE 6,F 

324 LOCATE 1,26 


MSX: 


Las modificaciones para el MSX son las 
mismas que para el AMSTRAD con la ex- 
cepción de las siguientes líneas: 

123 LET A=RND(-TIME) 
289 PRINT CHR$(219); 
291 PRINT CHR$(219); 
293 PRINT CHR$(219) 
296 PRINT CHR$(2 19) 
298 PRINT CHR$(219) 
301 PRINT CHR$(2 19); 
303 PRINT CHR$(219); 
305 PRINT CHR$(2 19) 


TECNICAS DE ANALISIS 


ORGANIGRAMAS (II) 


Entrada/salida. Síim- 
bolo generalizado de 
un proceso de entrada- 
salida. Se utiliza bien 
cuando no se conoce 
el dispositivo concreto 
en que se va a producir 
dicha operación, o 
cuando no es importan- 
te indicar el tipo de dis- 
positivo sobre el que se 
realizará la entrada/sa- 
lida. 


Almacenamiento ma- 
sivo de acceso directo. 
Representación gene- 
ral de todos los disposi- 
tivos de almacena- 
miento en soporte mag- 
nético: discos magnéti- 
cos y otros dispositivos 
de almacenamiento 
masivo de datos. 


Disco magnético. 
Cualquier tipo de dis- 
cos magnéticos (ex- 
cepto diskettes). 


Disco flexible. Especí- 
ficamente este tipo de 
disco. 


Cinta magnética. No 
es usual distinguir entre 
las cintas de gran ca- 
pacidad en cassette y 
las cintas en cartucho 
(cintas tipo «streamer»). 


IS) 

CH 

E 
V 


> 


Salida visual por pan- 
talla. Suele aparecer 
junto al símbolo de en- 
trada manual formando 
un conjunto representa- 
tivo de una estación de 
trabajo (pantalla CRT 
más teclado de entra- 
da de datos). 


Entrada manual de 
datos desde un teclado. 


Documento en gene- 
ral. Normalmente suele 
ser documento de sali- 
da del proceso. 


Almacenamiento ex- 
terno. Suele represen- 
tarse con este simbolo 
cualquier almacena- 
miento externo, si no se 
desea (o no se puede) 
especificar el tipo de 
dispositivo en que está 
soportado. 

Se utiliza también 
este símbolo (normal- 
mente de tamaño me- 
nor) para representar 
una tarea de intercala- 
ción. 


Selección. Represen- 
ta un proceso de ex- 
tracción de datos se- 
gún criterios definidos. 


Conector. En ocasio- 
nes es necesario reunir 
varias líneas de flujo o 
separarlas (especial- 


A « »> Y 


mente en ciertas líneas 
que representan rela- 
ciones de archivos o 
programas) sin que se 
desee reseñar ningún 
proceso especial en 
ese momento: se utiliza 
entonces este simbolo. 


Clasificación. Se re- 
presenta con este do- 
ble símbolo (como una 
selección y una interca- 
lación reunidas) el pro- 
ceso de clasificación 
de los datos de un fi- 
chero. 


Comentario. Se sue- 
len incluir comentarios 
fuera o al margen del 
organigrama poniendo 
una línea de puntos en 
cuyo extremo (dentro 
de la horquilla) se escri- 
be el comentario. 


Indicadores de flujo. 
Con esas puntas de fle- 
cha se suele señalar el 
sentido del flujo de da- 


tos cuando es útil indi- 
carlo (es usual reservar 
este tipo de informa- 
ción para los organigra- 
mas). 


En los procesos con ordenadores genera- 
les (grandes) de proceso administrativo se 
suelen utilizar otros dispositivos, que se repre- 
sentan por los siguientes símbolos: 


sum. 

47 

mo 
Y 


Tarjeta perforada. 


Fichero completo de 
tarjetas perforadas. 


Banda perforada. 


Registrador de cur- 
vas. 


En la figura 1 se puede ver una plantilla (que se puede comprar en cualquier estableci- 
miento especializado), con los símbolos que se suelen utilizar en la preparación de organigra- 


SOBODe 


DECISION DOCUMENTO TRATAMIENTO OPERACION AUXILIAR  ENTRADA/ SALIDA 
PROCESO PREDEFINIDO 


A N 
ENTRADA MANUAL TARJET PERFORADA BANDA MAGNETICA CINTA PERFORADA 


OPERACION 
MANUAL 


P 
LINEA DE o a 


SALIDA VISUAL «ALMACENAMIENTO 
0 2 


ALMAC E'NAMIENTO 
DE MASA 


E: 


TECNICAS 


EXPRESIONES 


N el capítulo anterior 
hablamos de la distin- 
ta precedencia que 
pueden tener las di- 
versas operaciones 
cuando se mezclan 
en una expresión úni- 
ca. Sin embargo, en 
casi todos los lenguajes de programa- 
ción existe una manera de evitar que di- 
cha precedencia tenga efecto, de ma- 
nera que el programador siempre podrá 
conseguir que las operaciones se efec- 
túen en el orden y de la manera que in- 
terese. Basta, para ello, con utilizar ade- 
cuadamente los paréntesis. 

Hemos visto que, en PASCAL y en BASIC, 
la expresión 3* 4 + 2, dará un resultado 
de 14, pues la multiplicación tiene pre- 
cedencia respecto a la suma. Vimos tam- 
bién que en APL, donde las reglas son di- 
ferentes, la expresión equivalente 
3x46+ 2 ada un resultado de 18, pues las 
operaciones se efectúan en este lengua- 
je comenzando por la que está situada 
más a la derecha. Pero ¿acaso no podre- 
mos conseguir que esta misma combina- 
ción de operaciones nos dé en BASIC o 
PASCAL el resultado 18, o en APL el resul- 
tado 14, invirtiendo de alguna manera el 
orden natural de las prioridades? 

Pues, en efecto, es posible. La expre- 
sión BASIC (o PASCAL) 3* (4 + 2) encierra 
entre paréntesis la operación suma, jun- 
to con sus dos sumandos, para indicarle 
al intérprete o al compilador que la suma 
debe efectuarse en este caso antes que 
la multiplicación por 3. De igual manera, 
la expresión APL (3 x 4) + 2 indica al in- 
térprete que ahora es la multiplicación la 
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que tiene precedencia. En este lenguaje 
se habría obtenido el mismo resultado, 
sin necesidad de utilizar paréntesis, escri- 
biendo la expresión de esta manera: 
2 + 3 x 4. Pero esta inversión del orden no 
es siempre posible, mientras que los pa- 
réntesis sí pueden situarse en cualquier 
lugar de las expresiones. 

De hecho, para el principiante puede 
ser recomendable utilizar muchos paren- 
tesis, incluso aquellos que pueden no ser 
necesarios, pues así se asegura de que 
las instrucciones se ejecutarán en el or- 
den exacto que él desea, evitando erro- 
res imprevistos y difíciles de descubrir, 
que pueden deberse a que ha tratado 
de simplificar sus expresiones utilizando 
un orden de precedencia de operacio- 
nes equivocado. Pues en todos los len- 
guajes de programación existen muchas 
maneras diferentes de representar la mis- 
ma expresión. Por ejemplo, todas las ex- 
presiones BASIC (o PASCAL) siguientes 
son equivalentes: 


314+2 
(314)+2 
(314+2) 
((344)+2) 
2+314 

2+ (344) 
(2+314) 


e igualmente lo son las siguientes expre- 
siones APL: 


3x4+2 
3x (4+2) 
(3x4+2) 
(3x (4+2)) 
(4+2)x3 
((4+2)x13) 


0 Tipos de expresiones 


Hemos visto que las expresiones son 
fórmulas que contienen una o más ope- 
raciones que actúan sobre uno o más da- 
tos para producir un dato nuevo o resul- 
tado. En capítulos anteriores vimos que 
los datos tienen dos características pro- 
pias: estructura y tipo. Pues bien: en la 
mayor parte de los lenguajes de progra- 
mación, las operaciones o funciones no 
pueden actuar sobre la estructura de los 
datos. En general, con muy raras excep- 
ciones, el dato sobre el que se aplican 
las operaciones y el dato producido 
como resultado tienen que ser únicos: es- 
calares. Por esta razón, cuando se desea 
actuar sobre estructuras más complejas 
(series, tablas, etc.) es preciso utilizar bu- 
cles. 

Una excepción importante a esta regla 
es el lenguaje APL, que se basa, precisa- 
mente, en un enfoque totalmente contra- 
rio. Aquí, la mayor parte de las operacio- 
nes fundamentales del lenguaje actúa 
sobre datos con estructura: escalares, sí, 
pero tamién vectores, matrices, o entida- 
des de orden superior. Y existen opera- 
ciones especiales que actúan sólo sobre 
la estructura de los datos, sin tocar sus 
valores. Ya hemos visto algún ejemplo (la 
función «rho») al hablar de cómo se for- 
maban en APL tablas y series de datos: 


Pero lo que sí es importante en todos los 
lenguajes de programación es el tipo de 
datos sobre los que actúan las funciones 
u operaciones primitivas. Estas pueden 


clasificarse en varios grupos, dependien- 
do precisamente del tipo de los datos a 
los que se aplican y del tipo de resulta- 
do que producen. Veamos algunos de 
los grupos más importantes: 


Funciones numéricas 


Llamaremos funciones u operaciones 
numéricas a las que se aplican a datos 
numéricos para producir resultados nu- 
méricos. Las más conocidas son, como 
es natural, las operaciones aritméticas 
elementales: suma, resta, multiplicación 
y división, que los diversos lenguajes re- 
presentan con símbolos más o menos se- 
mejantes a los que se utilizan en las Ma- 
temáticas ordinarias. Pero puede haber 
muchas más, algunas de las cuales reci- 
ben nombres en lugar de simbolos. 

Veamos, por ejemplo, algunas de las 
funciones numéricas del lenguaje BASIC: 


SIMBOLO O NOMBRE OPERACION 

+ Suma 

- Resta, cambio de signo 
x Multiplicación 

/ Di visión 

y División entera 
MOD Resto de dividir 

e Potenciación 
SQR Raiz cuadrada 
ABS Valor absoluto 
EXP e elevado a 

INT Parte entera 
LOG Logaritmo neperiano 
RND Números aleatorios 
SIN Seno 
cos Coseno 
ATN Arco tangente 


Veamos también algunas funciones de 
PASCAL: 


Resta, cambio de signo 
Multiplicación 
Di vi sión 


División entera 
Resto de dividir 
Cuadrado 

Raiz cuadrada 
Valor absoluto 
e elevado a 


2 TECNICAS DE PROGRAMACIÓN 


Truncaci ón 
Redondeo 

Logaritmo neperiano 
Números aleatorios 


Por último, he aquí una lista de funcio- 
nes numéricas en lenguaje APL: 


OPERACION 
DIADICA MONADICA 
Suma Identidad 
Resta Cambio de signo 
Multiplicación Signo 
División Inverso 
Resto dividir Valor absoluto 
Potencia "e" elevado a 
Mínimo Parte entera 
Máximo Techo 
Logaritmo Log. neperiano 
Funciones "pá" por 
trigonométricas 
Números com- Factorial y 
binatorios Gamma de Euler 
Aleatorios sin Aleatorios con 
reemplazamiento reemplazamiento 
Solución de Matriz inversa 
sistemas de 
ecuaciones 


. 
x 
+ 
! 
e 
L 
Tr 
> 
o 


Todas las funciones aritméticas APL tie- 
nen dos formas: diádica, en la que ac- 
túan sobre dos términos (como en 4-X) y 
monádica, cuando actúan sobre un solo 
término (como en -X). De esta manera, 
con el mismo número de símbolos se pue- 
de representar un número doble de ope- 
raciones aritméticas. Obsérvese también 
que el APL es uno de los pocos lengua- 
jes de pro ¡ramación que utilizan los sím- 
bolos clásicos de las Matemáticas para 
las cuatro operaciones fundamentales, 
reservando el asterisco para la potencia- 
ción, que al utilizar superíndices no pue- 
de representarse fácilmente en un tecla- 
do de ordenador. 


Funciones lógicas 


En capítulos anteriores hemos mencio- 
nado someramente el tipo de datos lógi- 
cos, indicando que se hablaría de él con 
detalle algo más adelante. Pues bien: ha 
llegado el momento. 


En cualquier lenguaje de programa- 
ción, se llama «dato lógico» a aquel que 
tan sólo puede tomar dos valores: «ver- 
dadero» y «falso». Se nos presenta con 
frecuencia este tipo de datos cuando 
realizamos comparaciones entre los va- 
lores de otros dos datos cualesquiera. 
Por ejemplo: la expresión X=2 puede sig- 
nificar, en muchos lenguajes de progra- 
mación, que deseamos saber si el valor 
de la variable X es igual a 2 o no. En el pri- 
mer caso, decimos que X=2 es verdade- 
ro. En el segundo (por ejemplo, si X resul- 
ta ser, después de todo, igual a 3) dire- 
mos que X=2 es falso. 

Veamos una lista de las operaciones 
de comparación, que actúan sobre da- 
tos de cualquier tipo y producen un re- 
sultado lógico (verdadero o falso), en los 
tres lenguajes de programación que es- 
tamos considerando: BASIC, PASCAL y 
APL: 


COMPARACION 


PASCAL APL 


Igualdad 
Desigualdad <> 
Mayor que 
Menor que 
Mayor o igual >= 
Menor o igual 7 


>< 
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Con los datos lógicos se pueden reali- 
zar ciertas operaciones diferentes de las 
que afectan a los datos numéricos o lite- 
rales. Supongamos, por ejemplo, que te- 
nemos dos datos lógicos, como los resul- 
tados de las expresiones siguientes: 


La primera dará el resultado «verdade- 
ro» siempre que el valor de la variable X 
sea menor que 3 y el resultado «falso» en 
caso contrario. La segunda dará el resul- 
tado «verdadero» cuando el valor de X 
sea mayor que 1 y «falso» cuando sea 
menor o igual que 1. Para cada valor de 
la variable X, la expresión X<3 tomará 


cierto valor, mientras que X>1 tomará 
otro que puede o no ser distinto al ante- 
rior. Veamos algunos ejemplos. 


VALOR DE X 


x<3 X>1 


falso 
falso 
falso 
verdadero 
verdadero 
verdadero 


verdadero 
verdadero 
verdadero 
verdadero 
falso 
falso 


cun op 


Se observará que, en algunos casos, 
las dos expresiones son verdaderas a la 
vez, mientras que en otros una es verda- 
dera y la otra falsa. También puede 
ocurrir (aunque no en este ejemplo) que 
las dos fueran falsas a la vez. 

Muchas veces, mientras programamos, 
puede interesarnos saber si ocurre una 
de esas coincidencias. Por ejemplo, si las 
dos comparaciones anteriores se cum- 
plen simultáneamente, lo que significa 
que el valor de X está comprendido en- 
tre 1 y 3 (excluyendo los valores 1 y 3). Si 
X es una variable que puede adoptar 
valores con decimales, esto es equiva- 
lente a decir que nos interesa saber si su 
valor está comprendido entre 1.0000001 
y 2.9999999, ambos inclusive (suponien- 
do que trabajamos con ocho cifras deci- 
males de precisión). 

Pues bien, todos los lenguajes de pro- 
gramación incluyen algún tipo de opera- 
ción que actúa sobre valores de tipo ló- 
gico y que nos indica cuándo se produ- 
cen estas coincidencias. Las operacio- 
nes lógicas fundamentales son las si- 
guientes: 


— Negación, que actúa sobre un dato 
lógico único. Si el dato es verdadero, su 
negación es falsa. Si el dato es falso, su 
negación es verdadera. 

— Conjunción, que actúa sobre dos 
datos. Si los dos son verdaderos, su con- 
junción es verdadera. Si al menos uno de 


los dos es falso, su conjunción será falsa. 
La conjunción se representa comúnmen- 
te por la palabra Y o algún término equi- 
valente. 

— Disyunción, que actúa sobre dos 
datos. Si al menos uno de los dos es ver- 
dadero, la disyunción es verdadera. Si 
los dos son falsos, la disyunción es falsa. 
La disyunción se representa comúnmen- 
te por la palabra O o algún término equi- 
valente. 

— Disyución exclusiva, que actúa so- 
bre dos datos. Si uno solo es verdadero, 
la disyunción exclusiva es verdadera. Si 
los dos son falsos o los dos son verdade- 
ros, la disyunción exclusiva es falsa. 

— Equivalencia, que actúa sobre dos 
datos. Si los dos son verdaderos o los dos 
son falsos, la equivalencia es verdadera. 
Si uno es verdadero y el otro falso, la 
equivalencia es falsa. La equivalencia se 
representa comúnmente por la palabra 
IGUAL o algún término equivalente. 

— Implicación, que actúa sobre dos 
datos. Si el primero es verdadero y el se- 
gundo es falso, la implicación es falsa. En 
todos los demás casos, la implicación es 
verdadera. 


Existen otras operaciones lógicas posi- 
bles con dos datos lógicos, en cuya des- 
cripción no vamos a entrar aquí. En ge- 
neral, todas ellas pueden definirse en 
función de las que ya hemos visto. 

Veamos una lista de las operaciones 
lógicas de los lenguajes BASIC, PASCAL y 
APL: 


OPERACION BASIC PASCAL APL 
Negación : NOT NOT 
Conjunción ¿AND AND A 
Disyunción OR OR v 
Disyunción 

exclusiva XOR XOR A 
Equivalencia EQv = 
Implicación IMP vw 


E entre los muchísi- 
mos tipos de aplica- 
ciones existentes uno 
de los más conocidos 
y utilizados es el de 
las hojas electrónicas 
(spreadshee!). Estas 

l- se han convertido 
desde 1979, fecha de aparición de Visi- 
Calc, en el tipo de programa para mi- 
croodenadores más ampliamente utiliza- 
do. A medida que el progreso electróni- 
co hace crecer el tamaño de las memo- 
rias, las hojas electrónicas crecen tam- 
bién y se vuelven más complejas. 


[MM ¿Qué es una hoja de cálculo? 


Las hojas electrónicas o de cálculo, así 
denominadas por la forma que adoptan 
dentro de la pantalla, son programas 
concebidos para resolver con facilidad 
problemas en un amplio campo de apli- 
caciones numéricas, realizar planifica- 
ciones o partiendo de modelos preesta- 
blecidos obtener distintos resultados, va- 
riando los parámetros de dichos mode- 
los. 

La gran cantidad de qGampos de apli- 
cación de estos programas hacen que 
gracias a su versatilidad puedan ser utili- 
zados para los más dispares problemas: 
cálculos financieros, cálculos de estruc- 
turas, tablas de valores, presupuestos, 
control de calidad, etc. 

Se trata, en definitiva, de la respuesta 
a preguntas que, aunque parezca extra- 
ño, todavía hoy agobian a directivos, 
contables, técnicos o al encargado de 


APLICACIONES 


HOJAS DE CALCULO 


realizar la planificación familiar: ¿Qué 
ocurriría si se realiza una inversión mayor 
de lo previsto? 

Para una empresa de reducidas dimen- 
siones, un error en su planificación finan- 
ciera puede suponer su desaparición del 
mercado. En una gran empresa, estos 
errores también se pagan caros, pero los 
resultados suelen ser menos dramáticos. 

En uno y otro caso, la utilización ade- 
cuada de una hoja de cálculo puede eli- 
minar muchos problemas. 


[MI Bases de la hoja electrónica 


La hoja de datos que tradicionalmente 
se utiliza en contabilidad consiste en una 
gran hoja de papel, que suele constar de 
un par de páginas, dividida en filas hori- 
zontales y columnas verticales que for- 
man una malla de celdas o cajas. En mu- 
chos aspectos, la hoja de cálculo del or- 
denador es como la de papel, principal- 
mente sus elementos. 


[IM La hoja electrónica 


Una vez puesto en marcha el programa 
nos encontramos con una cuadrícula 
que, como la de papel, está dividida en 
filas y en columnas. 

Las filas se señalan en una franja verti- 
cal, con números consecutivos. Depen- 
diendo de la hoja que hayamos selec- 
cionado, éstos podrán ser negativos o 
no. 

Las columnas, también en función de la 
hoja elegida, pueden aparecer numera- 


das o señaladas con las letras de abece- 
dario, de la siguiente forma: A, B, ...Z, AA, 
AB, AC... 

Evidentemente en la pantalla del orde- 
nador no cabe toda la hoja, por ello en 
cada momento sólo tendrás una visión 
parcial de la misma, que se denomina 
ventana. 


A BC OD UE 


—= 
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[A Dos ventanas diferentes de una hoja de 
cálculo. 


Otra posibilidad que nos ofrecen estos 
programas son las ventanas múltiples; 
evidentemente, por cada una de ellas 
podremos asomarnos a zonas diferentes 
de la hoja de trabajo que no sean adya- 
centes. 

La ventanas pueden abrirse en vertical, 
lo cual nos ayuda a comparar columnas, 
o en horizontal, lo que nos ayuda a com- 
parar filas. 


ME Los celdas 


Se definen como la intersección de 
una fila con una columna; es con ellas 


G H 


FILA 


COLUMNA 


¡A Celda D3, corresponde a la intersección 
de la fila 3 y la columna D. 


con las que vamos a trabajar, y se defi- 
nen por el número de su fila y la letra/s 
(o número) de su columna. 

CELDA ACTIVA es aquella con la que se 
está operando o sobre la que se está y 
se puede actuar; en general, se distin- 
gue de las demás porque tiene sobre 
ella el cursor o puntero de las celdas. 

RANGO DE CELDAS es un grupo de cel- 
das que se especifica en un momento 
dado mediante las coordenadas de la 
primera y la última de dicho grupo. 


¡A Rango de celdas C2: D4. 


Las celdas son interactivas entre sí, es 
decir, pueden relacionarse unas con 
otras para obtener los resultados desea- 
dos. 


(u Contenido de las celdas 


LITERALES. Su función es servir para rea- 
lizar descripciones de otros elementos 
de la hoja electrónica. La hoja se limita 
a almacenarlos en la celda correspon- 
diente. 

Pueden estar formados por caracteres 
alfabéticos, símbolos, números o mezclas 
de ellos, pero hay que tener muy en 
cuenta que si un número se introduce 
como alftanumérico no se podrá operar 
con él. 

DATOS NUMERICOS. Representan la in- 
formación numérica manejada y se pue- 
den utilizar desde otras celdas para ope- 
rar con ellos. 

FORMULAS. Con ellas se obtienen los re- 
sultados deseados en la hoja de cálcu- 
lo, en función de los datos numéricos al- 
macenados. Cuando una celda con 
dato numérico se varía, el programa se 
encarga de recalcular las celdas que 
son función de ella. 


= APLICACIONES 


Las fórmulas podrán estar formadas 
por: 

— Operadores aritméticos. Son”, /, + y 
- por este orden de jerarquía. 

— Operadores lógicos. Darán como 
resultado si la expresión es verdadera o 
falsa y son <)>, <>, <= y >=. 

— Otros operadores. Estos dependen 
de la hoja que hayamos seleccionado, 
entre los más frecuentes podemos desta- 


u Los comandos 


Hasta ahora conocemos los elementos 
de la hoja electrónica, pero resulta un 
misterio su manejo: ¿Cómo le indico de 
qué tipo de dato se trata? ¿Cómo abrir 
las ventanas?, o simplemente, ¿cómo ini- 
ciar y terminar una sesión de trabajo? 

La respuesta a estas preguntas se en- 
cuentra en los comandos. 


Contenido de las celdas. 


car los paréntesis () y el tanto por cien- 
to %. 

— Funciones. Pueden utilizarse de for- 
ma individual o integradas en fórmulas. 
Consisten en una amplia gama de pe- 
queños programas cuya necesidad sur- 
ge a partir de las limitaciones de cálculo 
que supone la exclusividad de las cuatro 
operaciones aritméticas básicas. 


Suelen subdividirse en tres grupos: 

— Funciones matemáticas. Estas a su 
vez podrán ser para cálculos aritméticos, 
financieros, trigonométricos, estadísti- 
COS... 

— Funciones lógicas. Se basan en el 
álgebra de Boole, permitiendo estable- 
cer operaciones condicionales exten- 
diendo notablemente las posibilidades 
operativas del programa en términos de 
control de los datos y de los resultados 
obtenidos. Como resultado no dan valo- 
res numéricos, sino lógicos, es decir, ver- 
dadero o falso. 

— En este tercer grupo de funciones 
vamos a situar a las que no pertenecen 
a los otros dos, aunque podrían formar 
varios grupos a su vez. Son, por ejemplo, 
las funciones de fecha y hora, las funcio- 
nes de impresión, funciones de adapta- 
ción monetaria, funciones de contro!... 


Los comandos son las órdenes que le 
vamos dando al programa para que rea- 
lice nuestra hoja de trabajo; pueden 
aparecer de dos formas: 

— Hojas sin menú. En éstas se activan 
mediante un carácter (como, por ejem- 
plo, /) que el ordenador interpreta para 
saber que lo que viene a continuación es 
un comando. 

— Hojas con menú. Lo más frecuente 
es seleccionar el comando correspon- 
diente de este menú, bien pulsando la 
inicial del mismo, o bien situando el cur- 
sor sobre él y pulsando INTRO. 

Entre los comandos más comunes se 
encuentran: 

— Comando para la selección de da- 
tos altanuméricos. 

— Comando para clasificar por filas o 
columnas. 

— Comando para formatear las cel- 
das: dar la longitud adecuada, centrar o 
no los datos, especificar número de deci- 
males... 

— Comando para insertar o copiar 
una línea o una columna. 

— Comando para crear ventanas. 

— Comando para imprimir resultados. 

— Comando para recalcular las fór- 
mulas con nuevos datos. 


PASCAL 


'O El tipo real 


N varias ocasiones 
anteriores hemos ha- 
blado del tipo REAL, 
que es el que se utili- 
za para manejar nú- 
meros que puedan 
ser no enteros o que 
puedan estar fuera 
de los límites establecidos para los de 
tipo INTEGER. En otras palabras, es el tipo 
al que habrá que acudir siempre que tra- 
temos con números muy grandes o con 
decimales; en todos los demás casos 
convenará utilizar el tipo INTEGER, pues 
precisa menor cantidad de memoria y el 
ordenador es capaz de hacer operacio- 
nes con ellos a mucha mayor velocidad. 

Pasemos a ver sus principales caracte- 
rísticas. 


Precisión y magnitud 
de los números REAL 


Los núme >s reales se guardan en la 
memoria de los ordenadores descompo- 
niéndolos en dos números enteros, y esto 
es así con la mayor parte de los lengua- 
jes de programación. 

Por ejemplo, como 21550000 es igual a 
0,2155 multiplicado por 10 elevado a 8 
(o sea, por 100000000, un 1 y 8 ceros), 
podríamos guardar, por un lado, 2155 y, 
por otro, 8. Al primero de estos números 
se le denomina MANTISA y al segundo EX- 
PONENTE. Más ejemplos: 


* -123,45 es igual a -0,12345 por 1000, 
luego se guardaría - 12345 y 3. 
* 0,000256 es igual a 0,256 dividido en- 


tre 1000; en este caso se guardaría 256 y 
-3, indicando el exponente negativo que 
lo que hay que hacer para obtener el nú- 
mero es dividir la mantisa por 1 y tantos 
ceros como indique su valor absoluto. 


Es decir, se corre la coma tantos luga- 
res como sea necesario para que el va- 
lor absoluto del número quede lo más 
próximo posible a 1, pero por debajo, y 
a eso se le llama mantisa. Al número de 
posiciones que se haya tenido que 
correr la coma se le llama exponente, in- 
dicando su signo para dónde hubo que. 
correrla. 

En realidad, la forma de guardar los nú- 
meros de tipo REAL es ligeramente distin- 
ta, pues los ordenadores utilizan números 
binarios, esto es, con ceros y unos sola- 
mente, pero el fundamento es el mismo. 
Por supuesto, todo esto se hace de ma- 
nera automática sin que nosotros nos en- 
teremos. A este sistema de almacena- 
miento en memoria se le denomina de 
«coma flotante». 

Como consecuencia de esta forma de 
guardar los números de tipo REAL suce- 
den varias cosas: 


1. Cada número REAL se descompone 
en DOS números y, por tanto, no pueden 
tener números ordinales asociados. Así, 
las funciones PRED, SUCC y ORD no se 
pueden aplicar a valores REAL, ni se pue- 
den utilizar variables REAL para controlar 
bucles FOR. En otras palabras, el tipo REAL 
no es un tipo escalar. 

No obstante, SI es posible comparar va- 
lores REAL entre sí como se hacía con los 
INTEGER, y el tipo de una función puede 
ser REAL. 


2. Los dos números en que se descom- 
ponen, o sea, la mantisa y el exponente, 


5 PASCAL 


tienen límites que dependen de cada 
compilador. Estos límites tienen cierta im- 
portancia por lo siguiente: 

— La limitación de la mantisa supone 
una disminución de la precisión con que 
se pueden guardar los números. 

Supongamos que hay que guardar, por 
ejemplo, el resultado de dividir 100 entre 
3, que vale 33,333... con infinitos treses y 
que es igual a 0,33333... por 100; ahora 
bien, si la mantisa pudiera tener como 
máximo 6 cifras, sólo podríamos guardar 
333333 y 2 que, en realidad, es lo que 
corresponde a 33,3333. 

La diferencia entre el número realmen- 
te guardado y el que debería haber sido 
se denomina error de redondeo. Así, si di- 
vidiéramos 100 entre 3 y lo multiplicára- 
mos luego por 3 obtendriíamos 99,9999 
en lugar de recuperar el valor original de 
100, que es lo esperable en principio. 

Como los números se guardan en bi- 
nario, esta situación se puede dar con 
números que aparentemente no necesi- 
ten muchas cifras, pues, por ejemplo, 
aunque 0,2 sólo necesita una cifra, en bi- 
nario 0,2 se escribe como 
0,001100110011... Si, por ejemplo, sólo 
se guardaran 12 dígitos binarios, el nú- 
mero que realmente tendríamos sería 
0.199951171875. 

Por todo esto, es peligroso comparar 
dos números reales para ver su igualdad, 
pues debido al error de redondeo, núme- 
ros que esperábamos que fueran iguales 
podrían resultar distintos. No obstante, 
normalmente se pueden esperar al me- 
nos 7 yu 8 cifras de precisión, e incluso se 
puede llegar con algunos compiladores 
a tener 16 cifras o más; esto se debe con- 
sultar en el manual de nuestro compila- 
dor. 

— La limitación del exponente supo- 
ne, por un lado, un límite superior para la 
magnitud de los números REAL que se 
pueden guardar en memoria. Por ello, si 
el máximo exponente fuera 37 (caso 
corriente), el número 5432100... (hasta 
50 ceros), igual a 0,54321 por 10 eleva- 
do a 55, estaría fuera de rango. 

Por otro lado, supone que los números 
muy pequeños se redondearán a cero al 
ser guardados en memoria. Por ejemplo, 
0,00...(50 ceros)...1254 es igual a 0,1254 
entre 10 elevado a 50, y si el límite infe- 
rior fuera -37, el número se redondearía 
a cero. 


'O Constantes y variables 
de tipo REAL 


Como puede imaginarse, las constan- 
tes de tipo REAL deben ser claramente di- 
ferenciables de las de tipo INTEGER para 
que el compilador sepa cómo guardar- 
las en memoria. 


Si para utilizar en expresiones de tipo 
REAL necesitáramos un valor, por ejem- 
plo, 15, no podríamos escribirlo tal cual, 
pues parecería INTEGER. 


Para distinguirse, las constantes REAL 
deben tener punto decimal o exponente 
o ambos (en inglés, para separar las ci- 
fras decimales de las demás se utiliza un 
punto en lugar de una coma). El expo- 
nente se separa del resto del número por 
medio de la letra E. Veamos unos ejem- 
plos para aclarar esto: 


* 150 DEBE haber cifras a 

ambos lados del 

punto. 

> JES 3E3 significa 3 por 

10 

elevado a 3, o sea, 

3000. 

Equivale a -3,17 en- 

tre 10000, o sea, 

-0,000317. 

* 0.33333333333 Problablemente no 
se guarden todas las 
cifras. 


* -3.17E-4 


Las constantes REAL, como las INTEGER, 
pueden declararse al principio del pro- 
grama: 


3.141592653589; 


Esta constante en concreto se encuen- 
tra ya definida con este mismo nombre 
en muchas versiones de PASCAL. 

También las variables se definen como 
las INTEGER, pero usando la palabra re- 
servada REAL: 


Var Angulo, Peso: real; 


const Pi = 


Sin embargo, y debido a la carencia 
de ordinales, no se pueden definir sub- 
rangos del tipo REAL. 

La asignación de datos a una variable 
se hace de manera análoga: 


Angulo := Pi; 
Peso := 60.0; 


Si escribiéramos, por ejemplo, Peso:= 
60, al ser 60 una constante de tipo INTE- 
GER, como la variable de destino es REAL, 
se tiene que producir una transformación 
de la forma en que se guarda el número 
60 (sin que nosotros nos apercibamos de 
ello). Esto se lleva tiempo de cálculo, por 
lo que es conveniente ser metódico y es- 
cribir constantes reales siempre que 
corresponda. 


[M' Expresiones REAL 


as expresiones de tipo REAL son aque- 
llas en que aparecen constantes, prede- 
claradas o no, y variables de tipo REAL 
combinadas entre sí mediante los opera- 
dores +, -,* y/. 

Son, en principio, muy parecidas a las 
de tipo INTEGER. El operador DIV no es uti- 
lizable aquí, pero en su lugar se tiene el 
operador / para hacer divisiones, ahora 
sí, con decimales; el orden de cálculo es 
similar: 


36.0 / (12.5 - 4.5) * 3.0 dará el resulta- 
do REAL 13.5 


En una expresión REAL pueden apare- 
cer constantes o variables INTEGER, cuyo 
valor es convertido a tipo REAL automáti- 
camente antes de ser utilizado. En expre- 
siones como: 


3+1"1/3 


donde | fuera una variable o constante 
entera, aunque todos los elementos son 
INTEGER, al descubrirse durante el cálcu- 
lo el operador /, como es exclusivo de 
los REAL, se pasa a utilizar el tipo REAL, y 
el resultado será REAL. Este cambio sobre 
la marcha puede dar lugar a situaciones 
curiosas que deben ser analizadas con 
cuidado. Por ejemplo, la expresión: 


1000 - 1000 / 10000 


aunque su resultado es 100, como se em- 
pieza a calcular por la izquierda, produ- 
ce un error, pues 1000 (INTEGER) por 1000 
(INTEGER) da un valor fuera de rango, ya 
que todavía no se ha descubierto que es 
una expresión REAL. Si escribiéramos: 


1000 / 10000 - 1000 ó 1000 + 1000.0 / 
10000, etc. 


se resolvería el problema, pues antes de 


hacer la operación causante del error se 
pasaria a utilizar el tipo REAL. 


| Conversión de valores REAL 
-a INTEGER 


Ya se ha visto que la conversión de IN- 
TEGER AU REAL se produce de manera au- 
tomática; por ello, si | fuese una variable 
o constante INTEGER cuyo valor quisiéra- 
mos guardar en la variable de tipo REAL 
R, bastaría con escribir R:= |. 


Sin embargo, a la inversa hay que de- 
finirlo de manera explícita para así poder 
elegir entre dos posibles modos de con- 
versión: 


— La función Round (R), donde R es 
una variable, constante o expresión 
REAL, da un resultado INTEGER lo más 
próximo posible al valor de R: 


Round (14.28) equivale a poner 14, y 
Round (14.59) equivale a poner 15, 


de ahí su nombre («redondea»). 


— La función Trunc (R) da un resultado 
INTEGER igual al número entero más 
cercano por debajo: 


Trunc (7.3) es igual a 7 y 
Trunc (7.99) también. 


Por supuesto, si el valor resultante estu- 
viera fuera de los limites INTEGER admisi- 
bles se produciría un error. Nótese que 
Round (R) es igual a Trunc (R+0.5). 


O Funciones de librería 


El PASCAL proporciona varias funciones 
matemáticas de tipo REAL predefinidas. 
Como tales funciones, el parámetro o va- 
lor al cual se quiere aplicar la función se 
debe escribir entre paréntesis a conti- 
nuación del nombre de la función. De- 
vuelven un valor de tipo REAL y, por tan- 
to, se pueden incorporar a cualquier ex- 
presión de este tipo. Por supuesto, el pa- 
rámetro puede ser una expresión REAL 
cualquiera (es decir, el paso de paráme- 
tros es por valor y no por nombre). Son las 
siguientes: 
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FUNCION O A 


(-) ABS 


valor absoluto 
cuadrado 

raíz cuadrada 
exponencial 
logaritmo natural 
seno 

coseno 
arcotangente 


abs (-3.5) 
sgr (2.0) 
sqrt (6.25) 
exp (1.0) 

In (1.0) 

sin (Pi/2.0) 
cos (Pi) 
arctan (1.0) 


es igual a 

es igual a 

es igual a 

es igual a 

es igual a 

es igual a 1.0 
es igual a -1.0 
es igual a Pi/4.0 


ARCTAN 


Las diferentes versiones de PASCAL 
pueden tener más funciones predefini- 
das. 

Se pueden producir errores durante el 
cálculo de algunas de estas funciones si 
el valor del parámetro se sale de los lími- 
tes establecidos para cada función: 


sgrt (-2.0) no es calculable. 


Una protección en ese caso sería escri- 
bir sqrt (abs(R)), donde R fuese la varia- 
ble, constante o expresión REAL cuya raíz 
cuadrada se quisiera obtener. 

El parámetro puede ser de tipo INTE- 
GER, pues se convertirá automáticamen- 
te en REAL excepto en las funciones mar- 
cadas con (), que proporcionan un re- 
sultado del mismo tipo que el parámetro. 


O Comparaciones entre valores 
=s de tipo REAL 


Al igual que con el tipo INTEGER, éstas 
son las comparaciones: 


A E E e E a E A 


Debe tenerse en cuenta el comentario 
anterior sobre las comparaciones de 
igualdad y desigualdad: 


100.0/3.0-3.0=100.0 
podría dar como resultado FALSE. 


Una forma de arreglar esto puede ser 
poner como condición de igualdad de 
dos valores el que su diferencia sea me- 
nor que una cierta cantidad: 


abs (A-B) < DiferenciaMaxima 


donde A y B son los valores a comparar. 

Normalmente los compiladores admi- 
ten comparar valores de tipo REAL con 
valores de tipo INTEGER, pues éstos son 
convertidos a REAL antes de hacer la 
comparación. 


O Entrada y salida de datos 
de tipo REAL 


Las variables REAL pueden tomar el va- 
lor que se introduzca desde teclado por 
medio de las instrucciones READ y 
READLN, que se utilizan de la misma 
manera que con las variables INTEGER. 
Valores tecleados aceptables son 3, 
72.7, 0.727E2 y 727E-1. 

Como ejemplo, veamos un procedi- 
miento para evitar que al leer una varia- 
ble de tipo INTEGER se pueda producir un 
error por salida de rango. Utilizaremos 
una variable REAL para recoger el núme- 
ro tecleado y sólo lo transferiremos a la 
de tipo INTEGER tras haber comprobado 
que tiene un valor aceptable: 


procedure LeeEntero (var N:z integer); 
(£ lee número entero de teclado cuidando su tamaño YX) 


var 
Auxiz real; 
Vale: boolean; 
begin 
repeat 


write (*Valor = ?); readin (Auxi); 
(X mirar si el entero correspondiente es lícito: %£) 
Vale := (abs(Auxi) <= MaxInt);3 


until Vale; 
N:= round (Auxi);z 
end; 


Por supuesto, también sería posible te- 
clear un número fuera de rango incluso 
para una variable REAL, pero es poco 
probable que se hiciera por equivoca- 
ción. 


La presentación por pantalla se hace 
igual que con los valores INTEGER. Los va- 
lores REAL se presentan en notación ex- 
ponencial, esto es, escribiendo mantisa 
y exponente separados por la letra E. No 


if not Vale then writeln (*No vale. Repita.”) 


obstante, es posible presentarlos con as- 
pecto «normal». Para ello, a continuación 
de la expresión REAL se indica el número 
de espacios a ocupar y el número de ci- 
fras decimales a presentar separados 
por dos puntos. Por ejemplo: 


writeln ( 27.2 , 27.2:6:2, 27.2:10:4 ) 
produciría algo como: 
2.72000000E+01 27.20 27.2000 


LENGUAJE C 


Cómo crear 
funciones 


L C posee una serie 
de funciones defini- 
das en el sistema ta- 
les como prinff(), 
scanff(), getchar(), 
putchar(), y strien(). 
Nosotros podemos 
crear nuestras pro- 
pias funciones, para lo cual estudiare- 
mos el siguiente ejemplo. Supongamos 
que introducimos por el teclado de nues- 
tro ordenador una serie de números de 
los cuales queremos obtener los números 
pares e imprimirlos. Para ello podíamos 
utilizar un programa como éste: 


main (7 
( 
int listal30]; 


leernum (lista); 


numparílista?); 


escribirílista); 


) 


En el ejemplo anterior deberíamos es- 
cribir tres funciones: leernum, numpar y 
escribir. Como vemos, dentro del cuerpo 
principal del programa existen tres llama- 
das a tres funciones. La forma general 
que tiene una función es: 


OTROS LENGUAJES 


tipo nombre (lista de argumentos ? 


declaraciones de araumentos 


sentenci=!: 


sentencias; 


Como habrá observado, el nombre de 
una función nunca va seguido por punto 
y coma. Deberá tener en cuenta este he- 
cho para saber que está trabajando con 
una función y no con una sentencia. 


1 Funciones con argumentos 


Tipo nombre se refiere al tipo de dato 
que devuelve la función. Por defecto, se 
supone que es de tipo in!f. 

Lista de argumentos es una relación de 
nombres separados por comas. Puede 
no existir ningún argumento, pero sigue 
haciéndose necesario el empleo de ( ). 

En las declaraciones de argumentos 
declararemos las variables utilizadas 
como argumentos de la función. Por de- 
fecto se suponen que son del tipo int, 
caso de no declararse ninguna. 

Variables locales son aquéllas que sólo 
tienen validez dentro del propio cuerpo 
de la función, es decir, utilizadas en el 
programa principal o en otras funciones 
harían referencia a variables diferentes. 


Para devolver un valor al programa de 
llamada desde una función utilizaremos 
la palabra clave return. Con esta palabra 
se da por terminada la ejecución de la 
función, devolviendo control a la siguien- 
te línea de la función de llamada. 


'O Variables externas y alcance 
de una variable 


En el lenguaje de programación C, a 
diferencia del Pascal, no podemos defi- 
nir funciones dentro de otras. Las varia- 
bles externas están definidas fuera de la 
función y pueden ser compartidas por 
otras, es decir, son variables globales y 
como tales son análogas al COMMON de 
FORTRAN, por citar un ejemplo. 

Si la variable externa se ha definido, 
cualquier función podrá acceder a ella, 
con tan sólo referenciarla, evitando en 
algunos casos grandes listas de argu- 
mentos. 

Si la variable externa se declara den- 
tro de la función que la utiliza, se deberá 
declarar con la palabra clave extern. 


Veamos un ejemplo: 


En el ejemplo anterior hemos creado 
una variable externa ejemplo conocida 


tanto por main() como por la función 
hola. 

El alcance o validez de una variable 
externa es su permanencia, es decir, per- 
manecen en el ordenador durante la eje- 
cución del programa y al no ser de nin- 
guna función en particular, no quedan 
eliminadas al finalizar alguna de ellas. 


1 Compilación de programas 
con varias funciones 


La compilación de varias funciones 
que están en el mismo fichero se lleva a 
cabo de la misma forma que la compila- 
ción de una sola función. 

Dependiendo del sistema la compila- 
ción se realizará de forma diferente; por 
ejemplo, en el sistema operativo UNIX el 
comando cc progl1.c prog2.c (suponien- 
do progl.c y prog2.c ficheros que con- 
tienen funciones) producirá un ejecuta- 
ble llamado a.ouf. En otros sistemas tales 
como Latftice C compilando por separa- 
do progl.c y prog2.c se producirán dos 
ficheros objetos progl.obj y prog2.obj. 
Estos módulos serán combinados, a tra- 
vés del linker, con los módulos objeto es- 
tándar de c.obj: 

link c prog1 prog2 


int ejemplo; 


main! ) 


extern 


int ejemplo; 


estern 1nt ejemplo; 


